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NOTES CONCERNANT LES PROGRAMMES 


Les programmes doivent être tapés tels qu'ils sont reproduits. Ils doivent 
être enregistrés sur cassette (ou sur disquette} pour éviter d'avoir à les reta- 
per à chaque utilisation. Utilisez pour cela l'instruction 

SAVE “CAS: < NOM > " 

en remplaçant < NOM > par le nom du programme à enregistrer. 
Exemple : pour enregistrer le programme BASE, tapez 

SAVE "CAS:BASE" 

et pressez la touche ENTER après avoir appuyé sur les touches LECTURE 
et ENREGISTREMENT du magnétophone. Pour recharger un programme, 
rembobinez la cassette jusqu'au début du programme et tapez LOAD 
“CAS: < NOM > Si vous voulez, par exemple, recharger le programme 
BASE, tapez 

LOAD “CAS: BASE" 

et pressez la touche ENTER. 

Afin de réduire au maximum les risques d'erreurs, les listings des pro- 
grammes ont été reproduits par photographie. Si vos programmes ne fonc- 
tionnent pas, vérîf îez-les attentivement en considérant plus particulièrement 
les points suivants : 

— lignes oubliées, 

— numéros de lignes erronés, 

— erreurs de frappe (attention en particulier à ne pas confondre la let- 
tre O et le chiffre 0 ou la lettre I et le chiffre 1). 


Avant-Propos 


Les jeux présentés dans ce livre utilisent des fonctions propres aux micro- 
ordinateurs MSX : son, couleur, graphisme, etc. Pour cette raison, ces pro- 
grammes ne fonctionnent pas sur les micro-ordinateurs qui ne se confor- 
ment pas à cette norme. 

Au-delà du jeu lui-même, l'étude de ces programmes vous enseignera 
de nombreuses techniques de programmation qui vous seront très utiles pour 
développer vos propres programmes. 



ATTAQUE 


Détruisez un maximum de tanks à l'aide de votre bombardier. Au départ, 
vous disposez de 5 bombes mais ne pouvez en transporter qu'une à la fois. 

Pour décoller, appuyez sur la touche curseur haut et, pour lâcher la 
bombe, sur la touche curseur bas. 

Si vous détruisez au moins 3 tanks, vous obtiendrez un bonus de 5 
bombes. 

La variable NM, en ligne 40, correspond au nombre minimum de tanks 
à détruire [1-51. 


10 REM********* 

20 REM*ATT AQUE* 

30 REM********* 

40 NM =3 

50 COLOR 15,3,5 
60 SCREEN 2,2 

70 OPEN "GRP: " FOR OUTPUT AS#1 
80 GÜSUB 690 
90 CLS 

100 GOSUB 520 
110 SC-RE: X3=16S 
120 GOSUB 920 
130 SC=0:X3=64 
140 GOSUB 920 

150 A~B: Al=4: X=240: X2=0s Yl=209 
160 FOR T=4 TO 7 

170 PUT SPRITE T, <B4+T*B,8> , 13, T 
ISO NEXT T 
190 NB”4: NT=0 
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200 ON SPRITE GOSUB 360 
210 SPRITE ON 

220 IF X=Q THEN A=-8: SPRITE* ( 1 ) =C* 

230 IF XO240 THEN 280 

240 IF Cl = 14 THEN Cl = l : NB=NB-1 s PUT SPRIT 
E NB+4, (52+NB*B,B) ,0: IF NB=-1 THEN 450 
250 IF E2=0 THEN A=0: SPRITE* ( 1 ) =B* 

260 IF STICK (0)01 THEN E2= 1 : GOTO 290 
270 E2=Û 
280 X= X—A 

290 PUT SPRITE l , < X f 62> ,C1 , 1 

300 IF STICK (0) =5 AND Cl = l THEN C1=14:X1 

=X s Y 1 =62 : PLAY " 02L 1 OB " 

310 IF POINT (XI ,Y1)=5 THEN Yl=Yl4-8 ELSE 
Y 1=209 

320 PUT SPRITE 2, ( X 1 , Y1 ) , 13, 2 
330 X2=X2+A1 

340 PUT SPRITE 3, <X2 , 170> , 14,3 
350 GOTO 210 
360 SPRITE OFF 
370 PLAY"01L20C" 

3B0 IF Al=-4 THEN X2=0:A1=4 ELSE X2=256: 
Al=-4 

390 Y 1=209 

400 PUT SPRITE 2,<X1,Y1>,,2 

410 SC=SC+1 

420 NT=NT+1 

430 GOSUB 920 

440 RETURN 

450 PUT SPRITE 1 , (255, 208) , , 1 
460 IF NT=>NM THEN 160 

470 IF RE< SC THEN RE=SC: X3= 168: GOSUB 920 
480 PSET (72 , 80) ,5 
490 COLOR 15 

500 PRINT #1,” APPUYER SUR <S>'' 

510 IF INKEY*="S" THEN 90 ELSE 510 
520 COLOR 1 1 
530 PSET (O, 180) 

540 DRAW " M255 ,180“ 

550 PAINT ( 100, 181 ) 

560 FOR T=1 TO 255 STEP 4 
570 PSET (T, 179) 
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580 PSETCT+1 , 179) 

590 NEXT T 

600 COLOR 15 

610 PSET <255, 160) 

620 DRAW" Ml 40, 160M190, 120M200, 120M216, 70 
M255 , 70" 

630 PAINT <255, 159) 

640 CIRCLE(100,32) ,40, 15,, ,.2 
650 PAINT < 100,32) 

660 CIRCLEf 140,40) ,30, 15, , , .2 
670 PAINT < 145,40) 

680 RETURN 

690 FOR T=1 TO 80 

700 READ A 

710 A*=A*+CHR* (A) 

720 NEXT T 

730 B*=LEFT*(A*,24) 

740 C*=MID* (AT- , 25 , 24) 

750 SPRITE* (1)=B* 

760 FOR T =2 TO 12 

770 SPRITE* (T) =M ID* < A* ,49,8) 

780 NEXT T 

790 SPRITE* (3)=MID*(A*, 57, 24) 

BOO El=ùsCl=l 
B10 RETURN 

B20 DATA 0,0,0,12,63,255,31,0 

830 DATA 0,0, 0,0, O, 0,0,0 

840 DATA 1,3,15,63,255,255,252,0 

850 DATA 128,192,240,252,255,255,63,0 

860 DATA 0,0, 0,0, 0,0, 0,0 

870 DATA 0,0,0,48,252,255,248,0 

880 DATA 60,126,60,0,0,0,0,0 

890 DATA 0,0,3,15,3,255,127,63 

900 DATA 0,0 ,0,0, 0,0, 0,0 

910 DATA 0,0,192,240,192,255,254,252 

920 PSET ( X3, B) ,5 

930 COLOR 5 

940 PRINT #1, STRING* ( 4, CHR* (200) ) 

950 PSET (X3,8) ,5 
960 COLOR 15 

970 PRINT #1 ,RIGHT*(STR*< 10000+SC) ,4) 

980 RETURN 
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BASE 


Dirigez votre capsule spatiale à travers les météorites afin d’alunir. 

Le chiffre, au centre, est le nombre de points que vous obtiendrez en 
alunissant. 

Utilisez les touches curseur gauche et droite pour manoeuvrer votre appa- 
reil horizontalement et la touche curseur bas pour le remonter. 


10 REM****** 

20 REM*BASE* 

30 REM****** 

40 Z=RND <-T IME) 

50 ON STDP GOSUB 70 

60 STOP ON: GOTO BO 

70 SCREEN 0: END 

BO DEFUSR=60000 !: GOSUB 10000 

90 RESTORE 

100 SCREEN 1,2 

110 CDLÛR 7,0,0 

120 VPDKE 8218, 128 

130 OPDKE 8219,128 

140 VPOKE 8220,240 

150 KEY OFF 

160 GOSUB 570 

170 GOSUB 820 

180 Z =6 

190 GOSUB 540 

200 Z=19:T=SC:SC=RE 

210 GOSUB 540 

220 SC=T 

230 ON SPRITE GOSUB 430 
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240 GPR I TE ON 
250 A— STICK <0) : XD=0 
260 IF A— 7 THEN XD=-1 
270 IF A=3 THEN XD=1 

2S0 IF A=5 AND Y< >24 THEN YD*-2 ELSE YD= 
2 

290 X=X+XDj Y=Y+YD 
300 IF Y=152 THEN 360 
310 PUT SPRITE 1, ( X , Y ) ,15,1 
320 B1=B1— 1 

330 IF B 1=0 AND B0>0 THEN B 1=50: BQ=B0-1 : 
LOCATE 13,1s PR INT BO 
340 A=USR(G) 

350 GOTO 240 
360 5C=SC+B0 
370 PLAY " 05L40CDEFGA " 

380 FOR T=1 TO 1000 

390 NEXT T 

400 Z =6: GOSUB 540 

410 GOSUB 990 

420 GOTO 240 

430 PLAY 11 0 1 L 1 OCC 11 

440 FOR T=1 TO 1000 

450 NEXT T 

460 SPRITE OFF 

470 IF SORE THEN RE=SC 

4B0 SC=RE 

490 LOCATE 7,10 

500 PR INT "APPUYER SUR <S>" 

510 Z=19 
520 GOSUB 540 

530 IF INKEY*="S" THEN CLSs SC=Os GOSUB 99 
O: GOTO 170 ELSE 530 
540 LOCATE Z,I 

550 PR INT RIBHT* (STR* ( 10000+SC) ,4) 

560 RETURN 

570 FOR T =0 TO 39 

580 RE AD A 

590 VPOKE 1760+I*8+T,A 
600 NEXT T 

610 DATA 255,255,193,62,124,131,255,255 
620 DATA 0,0,12,28,62,62,127,255 
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630 DATA 0,0,0,32,48,120,124,255 

640 DATA O, 0,0, 0,0, O, 0,0 

650 DATA 0,0,128,0,0,1,0,0 

660 FOR T=1 TO 56 

670 READ A 

680 S*=S*+CHR*(A) 

690 NEXT T 

700 SPRITE*(1)=MID*CS*, 1 ,32) 

710 FOR T=2 Tü 16 

720 SPRITE* (T) =MID* CS* , 33+ INT (RND ( 1 ) *3) * 

8 , 8 ) 

730 NEXT 
740 RETURN 

750 DATA 3,15,63,63,63,63,63,63 

760 DATA 15,7,13,25,63,32,112,248 

770 DATA 192,240,252,252,252,252,252,252 

780 DATA 240,224,176,152,252,4,14,31 

790 DATA 0,24,60,126,126,252,248,32 

800 DATA 6,15,63,127,127,30,0,0 

810 DATA 24,124,254,254,255,255,56,16 

820 LOCATE 0,19 

830 FOR T=1 TO 29 ^ 

840 PR INT CHR* (RND(l) *3+221 ) ; 

850 NEXT T 

860 FOR T= 1 TO 87 °)C 
870 PRINT CHR* (219) ; 

880 NEXT 

890 RESTORE 1080 
900 FOR T=1 TO 4 
910 READ X , Y 
920 LOCATE X,Y 
930 PRINTCHR* (220) ; 

940 NEXT T 

950 FOR T=1 TO 50 

960 LOCATE RND ( 1 > *30 , 3+RND ( 1 ) *16 
970 PRINT CHR* (224); 

980 NEXT T 

990 PUT SPRITE 1,(1,20B),,1 
ÎOOO FOR X=0 TO 2 
1010 FOR Y=0 TO 4 
1020 A=2+X+Y*3 

1030 PUT SPRITE A, (85*X+RND < 1 ) *60 , 56+16* 
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Y) , 10, A 
1040 NEXT Y 
1050 NEXT X 

1060 X“122: Y=24: YD-1 ; 130=108 Bl = l 
1070 RETURN 

1080 DATA 5,20,29,20,18,21,10,22 
10000 REM DEPLACEMENT METEORITES 
10010 RESTORE 10070 
10020 FOR T=60000! TO 60048! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,2,14,2,205,124,234,14,255, 

205, 124,234,14,3,205, 124,234,14 

100B0 DATA 254,205,124,234,14,1,205,124, 

234,201 ,245,6,3,205,135,0,35,205 

10090 DATA 74,0,145,205,77,0,241,60,245, 

16,240,241 ,201 
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COMBAT 


Tirez sur les avions, les bateaux et les sous-marins. 

Au début du jeu, vous disposez de 90 secondes. Mais si vous réussis- 
sez à tout détruire, vous obtiendrez 15 secondes supplémentaires. 

Le jeu se termine si le temps est écoulé ou si vous tirez sur une mine. 
Les points sont répartis ainsi : 

sous-marîn : 1 point, 
bateau : 2 points, 
avion : 3 points. 

Pour manœuvrer votre base, utilisez les touches curseur droite et gauche 
et, pour tirer, la touche curseur haut, 


10 REM****-**** 

20 REM* COMBAT* 

30 REM******** 

40 SCREEN 1 , 2 
50 CLEAR 1000 
60 Z=RND <--T IME) 

70 GOSUB ÎOOOO; DEFUSR sa 60000 ! 

80 DEFUSR 1 =!<HEA9 1 

90 ON STOP GOSUB 110 

100 STOP ON: GOTO 120 

110 COLOR 10, 1,1: SCREEN O: END 

120 KEY OFF 

130 WIDTH 32 

140 GOSUB 630 

150 GOSUB 1170 

160 TE"41 

170 GOSUB 1120 
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180 GOSUB 760 
190 NB=0 

200 TE=TE+1 6: IF TE>99 T NEW TE==99 

210 GOSUB 1290 

220 X-120: Yl=209: C0»1 : Tl=l 

230 ON SPRITE GOSUB 370 

240 SPRITE ON 

250 A=»STICK<OÏ 

260 IF A=7 AND X>88 THEN X=X-8 

270 IF A=3 AND X<152 THEN X=X+8 

280 IF A=1 AND VI =209 THEN CÜ=0: Yl=176: X 

1=X 

290 IF C0=0 THEN Y1=Y1-B 

300 IF Yl = 16 THEN Y1=209:C0=1 

310 T1=T1-1:IF T1=0 THEN TE=TE-1 :T1=18: I 

F TE=—1 THEN 470 

320 LOCATE 14,1: PR INT TE 

330 PUT SPRITE 1 , ( X , 176) , 10 , 1 

340 PUT SPRITE 2 , ( X 1 , Y1 > , 1 , 2 

350 Z=USR (0) 

360 GOTO 240 

370 SPRITE OFF 

3B0 IF Y1 >145 THEN RETURN 

390 C=2sCZ=18 

400 Z=USR1 (0) 

410 PLAY"01L10C" 

420 FOR T=40000 ! TO 40029! STEP 2 
430 A=PEEK ( T > : B=PEEK ( T+ 1 ) 

440 C=C+1 : IF ABS(X1-B)<16 AND ABS(Y1-A)< 
16 THEN CZ=C 
450 NEXT 

460 IF CZ< 12 THEN SPRITE* (CZ 1 =" " : PUT SPR 

ITE 2, (XI, 209) , ,2: Yl=209: C0=1 s SC=SC— 3* (C 

Z<6) -2* (CZ >5 AND CZ<9) - (CZ >8) : GOSUB 1120 

: NB=NB+1 : IF NB=9 THEN PLAY " 05L30CDEEDED 

C" ï GOTO 170 ELSE RETURN 

470 FOR T =0 TO 40 

480 C=C+1 s IF 015 THEN C=0 

490 COLOR ,C,C 

500 NEXT T 

510 CQLOR 7,5,4 

520 VPOKE 8219,80 
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530 VPOKE 8218,208 

540 IF RE<SD THEN RE=SC 

550 GOSUB 1120 

560 SC=0 

570 LOCATE 8,7 

580 PR INT "APPUYER SUR <S>" 

590 IF INKEY*<>"5" THEN 590 

600 LOCATE B, 7 

610 PRINT SPACE*(15) 

620 GOTO 160 
630 FOR T=1 TO 80 
640 READ A 
650 S*=S*+CHR*(A) 

660 NEXT T 

670 FOR T=1 TO 64 

680 READ A 

690 T*=T*+CHR*(A) 

700 NEXT T 

710 FOR T =0 TO 23 

720 READ A 

730 VPOKE 1712+T, A 

740 NEXT T 

750 RETURN 

760 FOR T=12 TO 17 

770 SPRITE* (T)=LEFT* (Si, 32) 

780 NEXT T 

790 FOR T=9 TO 1 1 

800 SPRITE* ( T ) =M I D* ( S* , 33 , 24 ) 

810 NEXT T 

820 FOR T=3 TO 5 

830 SPRITE* (T)=MID*(S*, 57, 24) 

840 NEXT T 

850 FOR T=6 TO 8 

860 SPR I TE* ( T ) =LEFT * ( T* , 24 ) 

870 NEXT T 

880 SPR I TE* ( 2 ) =M I D* ( T* , 25 , 8 ) 

890 SPRITE* ( 1 ) =MID* ( T* , 33, 32) 

900 RETURN 

910 DATA 1,33,119,63,31,63,63,254 
920 DATA 254,63,63,31,63,119,33,1 
930 DATA 128,132, 238 , 252 , 248 , 252 , 252 , 127 
940 DATA 127,252,252,248,252,238,132,128 


- 21 - 


950 DATA O 
960 DATA 0 
970 DATA O 
9SO DATA 0 
990 DATA Û 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 
1070 DATA 
6 

10B0 DATA 
1090 DATA 
1100 DATA 


, 1 , 1 , 31 , 191 , 255 , 191,31 
, 0 , 0 , 0 , 0 , 0 , 0,0 

, 224 , 224 , 254 , 255 , 255 , 255 , 254 
, 192 , 224 , 255 , 255 , 255 , 199,15 
,0,0, 0,0, O, 0,0 
0 , 0 , 120 , 254 , 255 , 254 , 224,248 
0 , 0 , 7 , 15 , 255 , 255 , 127,63 
O, 0,0, 0,0,0, 0,0 
0 , 0 , 224 , 224 , 255 , 255 , 254 , 252 
1 , 1 , 1 , 1 , 1 , 1 , 1,1 
3 , 7 , 7 , 7 , 7 , 7 , 19,55 

63 . 127 . 127 . 63 . 55 . 19 . 0 . 0 

1 92 , 224 , 224 , 224 , 224 , 224 , 200 , 23 

252 . 254 . 254 . 252 . 236 . 200 . 0 . 0 
O, O, O, 0,0, 0,0,0 

255 , 255 , 255 , 255 , 255 , 255 , 255 , 25 


5 

1110 DATA 255,255,255,255,255,223,207,13 
5 

1120 LQCATE 7,1 

1130 PRINT RIGHT$ (STR$ C 10000+SCÏ ,4) 

1140 LOCATE 21,1 

1150 PR IIMT R IGHT f- ( STft$ ( 1 OOOO+RE ) , 4 ) 

1160 RETURN 
1170 CL S 

1180 COLOR 7,5,4 
1190 VPDKE B2 19, BO 
1200 VPOKE 8218,208 
1210 LOCATE 0,8 
1220 FOR T=1 TO 511 


1230 IF T< 460 DR <T>469 AND T<492) OR T> 
501 THEN A=214 ELSE A=215 
1240 IF T< 33 THEN A=216 
1250 PRINT CHR$<A); 

1260 NEXT T 

1270 OPQKE 6911,214 

1280 RETURN 

1290 RESTORE 1380 

1300 PLJT SPRITE 2, (200, 208) ,, 2 

1310 FOR Y=0 TO 4 

1320 READ A 
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1330 FOR X=0 TO 2 

1340 PUT SPRITE 3+X+Y*3, (X*85+RND ( 1 ) *40, 

Y*24+40> ,A,3+X+Y*3 

1350 NEXT X 

1360 NEXT Y 

1370 RETURN 

1380 DATA 3,15,14,1,1 

10000 REM DEPLACEMENT SPRITES 

10010 RESTORE 10080 

10020 FOR T =60000 î TO 60075! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RESTORE 
10070 RETURN 

10080 DATA 62,3,14,252,205,124,234,14,3, 
205,124,234,14,254,205,124,234, 14 
10090 DATA 1,205,124,234,14,255,205,124, 

234.201 .245.6.3.205. 135.0. 35.205 

10100 DATA 74,0,145,205,77,0,241,60,245, 
16,240,241,201 

10110 DATA 62,3,1,64,156,245,205,135,0,2 

05.74.0. 2.3.35. 205 .74.0.2.3.241 
10120 DATA 60,254,18,32,235,201 
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GALERIES 


Vous avez 90 secondes pour traverser 10 gaieries à l'aide de votre sous- 
marin. Mais attention aux mines I 

Si vous y parvenez, vous devrez en traverser 10 autres plus étroites, 
toujours en 90 secondes. 

Pour manœuvrer votre sous-marin, utilisez les touches curseur haut, gau- 
che, droite ; son poids se charge de le faire descendre. 


10 REM»#******** 

20 REM*GALER I ES# 

30 REi"1********** 

40 ON STOP GOSUB 60 

50 STOP ON: GOTO 70 

60 COLOR 10, 1 , lïSCREEN O: END 

70 SCREEN1 

80 WIDTH 32 

90 KEY OFF 

lOO COLOR 1,5,1 

110 DEFUSR-60000 ! 

120 Z=RND<-TIME) 

130 GOSUB 580 

140 GOSUB 10000 

150 NV=50:TI=TIME:N1=0:SC=0 

160 POKE 59000! , 10 

170 N1=N1+1 

180 IF Nl< 11 THEN 270 

190 IF PEEK (59000 ! ) >5 THEN POKE 59000!, P 
EEK (59000 ! ) -1 : Nl = l : TI=TIME: GOTO 270 
200 LQCATE 8,2 
210 PR INT "FI N DES GALERIES" 
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220 FOR T= 1 TÜ IGOîNEXT T 

230 LOCATE £3,2 

240 PRINT SPACE*<17) 

250 FOR T= 1 TO 100s NEXT T 

260 GOTO 200 

270 GOSUB 7B0 

280 GOSUB 900 

290 X=2: Y—12; S=240s TE=0 

300 GOTO 430 

310 A=STICK (O) 

320 TA=INT(92~(TIME-TI>/50) : IF TA<0 THEN 
TI=TIME+100; GOTO 490 ELSE LOCATE 14,1:P 
RINT TA 

330 IF AOO THEN TE=0 

340 IF A=1 THEN XD=0: VD=-1 s GOTO 390 

350 IF A=3 THEN XD=1 : YD=0; S=240s GOTO 390 

360 IF A=7 AND X<>2 THEN XD=-1 s YD=0: S=24 

2: GOTO 390 

370 TE=TE+1 s IF TE=20 THEN TE=0: XD=0: YD=1 

s GOTO 390 

380 GOYO 310 

390 LOCATE X,Y 

400 PRINT CHR*<32) ; CHR* (323 

410 X=X+XDi Y=Y+YD 

420 IF VPEEK (6144+X+Y*32> < >32 DR VPEEK (6 

145+X+Y*32) < >32 THEN 490 

430 LOCATE X,Y 

440 PRINT CHR*<S) sCHRÆ(S+l) 

450 IF X< 30 THEN 310 
460 PLAY ” 05L30CDE " 

470 SC=SC+10 
480 GOTO 170 
490 PLAY" 01L20C" 

500 LOCATE X,Y 

510 PRINT CHR$ < 244 ) ; CHR$ ( 244 ) 

520 FOR T=1 TO 1000s NEXT T 

530 NV=NV-1:IF NV >47 THEN 270 

540 IF SORE THEN RE=SC: GOSUB 790 

550 LOCATE B, 2 

560 PRINT “APPUYER SUR (S)" 

570 IF INKEY$="S" THEN 150 ELBE 570 
580 FOR T=0 TO 7 
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590 READ A 

600 VPOKE 1984+T, A 

610 NEXT T 

620 FOR T «O TO 39 

630 READ A 

640 VPOKE 1920+T , A 

650 NEXT T 

660 VPOKE 8223,125 

670 VPOKE 8222 ,21 

680 VPOKE 8221,101 

690 VPOKE 8198,245 

700 VPOKE 8199,245 

710 RETURN 

720 DATA 255,255,195,195,195,195,255,255 
730 DATA 0,1,1,31,191,255,191,31 
740 DATA 0,224,224,254,255,255,255,254 
750 DATA 0,7,7,127,255,255,255,127 
760 DATA 0,128,128,248,253,255,253,248 
770 DATA 08, 65, 22, 48, 3, 52, 100,0 
780 CLS; GOSUB 790; GOTO 840 
790 LOCATE 7,1 

800 PRINT RIGHT* (STR* (10000+80 ,4) 

810 LOCATE 21 , 1 

B20 PRINT RIGHT$ (STR* (10000+RE) ,4)r 

830 RETURN 

840 LOCATE 27,1 

850 PRINT CHR* (240) ;CHRt (241) j “ : “ 

B60 VPOKE 6206, NV 
870 2=USR (0) 

880 LOCATE 10,10 

890 RETURN 

900 FOR T— 1 TO NI 

910 XE=RND ( 1 > *26+5 

920 YE= I NT ( RND ( 1 ) *20+4 > 

930 P=6144+YE*32+XE 

940 IF VPEEK (P) < >32 OR VPEEK (P+32) < >32 O 

R VPEEK (P-32) 032 THEN 910 

950 VPOKE P, 232 

960 NEXT T 

970 RETURN 

10000 REM GENERATEUR GALERIES 
10010 FOR T=60000 ! TO 60066! 
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10020 RE AD A 
10030 POKE T, A 
10040 NEXT T 
10050 RETURN 

10060 DATA 33,96,24,62,248, 1 , 160,2, 205, 8 

6.0. 33. 11.1 .229.58. 120.230.245 

10070 DATA 205,198,0,62,32,205,162,0,44, 

241 .61.254.255.32.240.225.1.0. 1 .9 
10080 DATA 124,254,33,200,237,95,254,64, 
56,9,44,58,120,230, 133,254,24,32 

10090 DATA 212,45,125,254,4,32,206,195,1 
45,234 
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GYPSIE 


Aidez la grenouille Gypsie à traverser la route puis la rivière en évitant 
les voitures et en sautant sur les troncs d'arbre. 

Au début du jeu, vous avez 90 secondes. 

Si vous réussissez 3 traversées, vous obtenez 20 secondes supplémen- 
taires. La partie s'arrête si le temps est à 0 ou si vous n'avez plus de grenouille. 
Pour faire avancer Gypsie, utilisez la touche curseur haut. 


10 REM******** 

20 REM*6YPSIE* 

30 RE N******** 

40 SCREEN 1,2 
50 COLOR 1,2,12 
60 KEY ÜFF 
70 WIDTH 32 
80 DEFU SR =60000 ! 

90 DEFUSR 1=60023! 

100 CLEAR 1000 

110 ON STOP GDSLIB 130 

120 S T DP ON; GOTO 140 

130 COLOR 10, 1 ,1: SCREEN 0; END 

140 Z=RND (-TIME) 

150 GOSUB 690 

160 GOSUB 10000 

170 GOSUB 1170 

180 Z=USR ( 0) : NV=50 

190 GOSUB 1310 

200 ON SPRITE GOSUB 660 

210 TI=TIME 

220 POKE 59000 ! , 1 20 : CO— 1 
230 Y 1=1 84 
240 GOTO 300 
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250 SPRITE ON:CO=1 

260 IF ST I CK CO) = 1 AND TE=0 AND PLAY<0)=0 
THEN TE=1 : PLAY ''□4L64CD'’ 

270 IF TE=2 THEN TE-Q: SPRITE* ( 1 ) “A*a Y1=Y 
1~8 

280 IF TE“1 THEN TE=2: Y1=Y1-B: SPRITE* ( 1 ) 
«B* 

290 Z =USR 1 (0) 

300 PUT SPRITE 1 , (PEEK (59000 !) ,Y1 ), 15, 1 
310 IF PEEK (59000 !) >247 OR PEEK (59000 !) < 
16 THEN 450 

320 T A= I NT ( 90- ( T I ME-T I ) /5Ü > : IF TA<0 THEN 
NV=48:G6t0 450 ELSE LOCATE 15,1: PRINT T 
A 

330 IF TE=0 AND ( (CO-1 AND Yl<104> DR (C 

0=0 AND Y1 >104) > THEN 450 

340 IF Y 1 < >24 THEN 250 

350 H=300 

360 FOR T=1 TO 3 

370 IF ABS (PEEK (59000 !> -A (T) KH THEN H=A 

BS (PEEK (59000! )-A(T) > :H1=T 

380 NEXT T 

390 IF H >6 THEN 450 

400 PLAY"G5ADE M 

410 SPRITE* (25+Hl)="" : A(H1 ) =0 

420 SC=SC+10: G05UB 1310 

430 N=N+1 : IF N=3 THEN GOSUB 1250: FOR T=2 
6 TO 28: SPRITE* (T) =F*: NEXT T:TI=TI+1000 
440 GOTO 220 
450 FLAY"Ü1L10C" 

460 SPRITE* (1)=G* 

470 IF NV=48 THEN 520 
480 NV=NV-1 : GOSUB 1310 
490 FOR T=1 TO 500: NEXT T 
500 SPRITE* (1)=A* 

510 GOTO 220 

520 IF RE< SC THEN RE=SC 

530 GOSUB 1310 

540 LOCATE 8,13 

550 PRINT "APPUYER SUR <S>" 

560 IF INKEY*< >"5" THEN 560 

570 LOCATE 8,13 

580 PRINT SPACE* ( 15) 
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590 GOSUB 1170 

600 NV=50:SC=0: GOSUB 1310 

610 SPRITE* ( 1 ) «A* 

620 FOR T =26 TO 28 
630 SPRITE* (T) =F* 

640 NEXT T 

650 GOTO 210 

660 C0=0 

670 SPRITE OFF 

680 RETURN 

690 FOR T=Q TO 111 

700 READ A 

710 S*=S*+CHR* (A) 

720 NEXT T 

730 A*=LEFT*<S*,B) 

740 B*=MID* (S* , 9 , 16) 

750 SPRITE* (1)=A* 

760 SF'R I TE* ( 29 ) =A* 

770 C*=MID* (S* ,25 , 24) 

780 FORT =2 TO 13 
790 SPR I TE* ( T ) =C* 

800 NEXT T 

810 D*=MID* (S*, 49,24) 

820 E*=MI D* (S* , 73 ,24) 

B30 FOR Y=0 TO 1 

B40 FOR X=0 TO 2 

850 SPRITE* ( 14+Y*6+X> =D* 

860 SPRITE* ( 17+Y#6+X) =E* 

870 NEXT X 

880 NEXT Y 

890 ^*=HID* (S*, 97,8) 

900 FOR T =26 TO 28 
910 SPRITE* (T) «F* 

920 NEXT T 

930 G*=MID* (S*, 105,8) 

940 FOR T =0 TO 7 

950 READ A 

960 VPOKE 1S56+T , A 

970 VPOKE 1920+T , A 

980 NEXT T 

990 VPOKE 8221,64 

1000 VPOKE 8222,224 
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1010 RETURN 

1020 DATA 0,90,126,60,126,90,66,0 
1030 DATA 66,66,90,126,60,60,60,126 
1040 DATA 126,90,66,66,66,66,66,66 
1050 DATA 127,255,255,255,255,255,255,12 
7 

1060 DATA- 0, 0, 0,0, 0,0, 0,0 

1070 DATA 254,255,255,255,255,255,255,25 

4 

1080 DATA 0,28,31,63,63,31,28,0 
1 090 DATA 0,0, 0 , 0 , 0 , 0 , O , O 
1100 DATA 57,57,255,255,255,255,57,57 
1110 DATA 156,156,255,255,255,255,156,15 
6 

1120 DATA 0,0, O, 0,0, 0,0,0 

1130 DATA 0,56,248,252,252,248,56,0 

1140 DATA 255,255,255,255,255,255,126,60 

1150 DATA 88,65,22,48,3,52,99,0 

1160 DATA 255,255,255,255,255,255,255,25 

5 

1170 PUT SPRITE 1,(0,208) 

1180 FOR X=0 Tü 2 
1190 Z-0:C=6 
1200 FOR Y=0 TO 7 

1210 IF Y >3 THEN Z ==16: C-B-4* ( X = 1 ï -5* ( X-2 
) 

1220 PUT SPRITE 2+X+Y*3, <85*X+RND ( 1 > *40, 

40+ 1 6*Y+Z ) , C , 2+X+Y*3 

1230 NEXT Y 

1240 NEXT X 

1250 FOR T— 1 TO 3 

1260 A(T)«INT(60*T+RND(1)*30) 

1270 PUT SPRITE T+25 , ( A ( T ) , 23) , 2, T+25 

1280 NEXT T 

1290 N—0 

1300 RETURN 

1310 LOCATE 7,1 

1320 PR INT RIGHT* (STR* (10000+SC) ,4) 

1330 LOCATE 21,1 

1340 PR INT R I GHT $ ( STR$ ( 1 OOOO+RE ) , 4 ) 

1350 PUT SPRITE 29, (216, 7) , 15,29 
1360 VPÜKE 6204,58 
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1370 VPOKE 6205, NV 
1380 RETURN 

10000 REM DEPLACEMENT SPRITES 
10010 FOR T-60000! TO 60129' 

10020 READ A 
10030 PQKE T, A 
10040 NEXT T 
10050 RETURN 

10060 DATA 33,96,24,1,64,1,62,232,205,86 

,0,33,192,25,1,32,1,62, 240 , 205 

10070 DATA 86,0,201,62,2,14,1,205,207,23 

4 1 1 4 , 253 , 205 , 207 , 234 ,14,4, 205 

10080 DATA 207,234,14,254,205,207,234,14 

, 2 , 205 , 207 , 234 ,14, 252 , 205 , 207 , 234 

10090 DATA 14,3,205,207,234,14,255,205,2 

07.234.62.1.205.135.0. 205 

10100 DATA 74,0,14,0,254,40,32,2,14,1,25 
4,56,32,2,14, 253 , 254 ,72,32,2,14,4 
10110 DATA 254,88,32,2,14,254,35,205,74, 
O, 145,50,120,230,205,77,0,201 ,6 
10120 DATA 3,245,205,135,0,35,205,74,0,1 

45 . 205 .77.0. 241.60.16. 240 . 20 1 
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FORMULE 1 


Vous devez parcourir 5 000 mètres avec votre Formule 1 le plus rapide- 
ment possible, en évitant les autres voitures. 

Si vous entrez en collision avec l'une d'elles, votre vitesse deviendra nulle. 

Pour vous déplacer, utilisez les touches curseur haut et bas, pour accé- 
lérer la touche curseur droit et pour freiner la péda... euh, la touche curseur 
gauche. 


10 REM**#-*#*****-» 

20 REM*FORMULE I* 

30 REM*********** 

40 SCREEN 1 ,3 
50 WIDTH 32 
60 KEY OFF 
70 CGLOR 7,2,12 
80 DEFUSR=60000! 

90 DEFUSR 1=60023 ! 

100 DEFUSR2=60065! 

110 ON STOP GOSUB 130 

120 STOP ON: GOTO 140 

130 BEEP: COLOR 10 , 1 , 1 : SCREEN O: END 

140 GOSUB 640 

150 GOSUB 10000 

160 SOUND 12,12 

170 SOUND 7,0: SOUND 6,11 

180 SOUND 13', 12: SOUND 1,15 

190 SOUND 0,-255 

200 Z =USR ( 0) : Y 1 =80 

210 PUT SPRITE 1,(0, 208 ) , , 1 

220 LQCATE 0,9 

230 FOR T=0 T031 

240 PRINTCHR* (96+ T MOD 4);:NEXT 
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250 LOCATE 0,13 
260 FOR T =0 TD31 

270 PRINTCHR* (96+T MOD 4>;:NEXT 

280 LOCATE 7,20 

290 PRINT "O.OBO. 160.240.320" 

300 GOSUB 930: REM POS SPRITES 

310 TIME=0: 01=300: NM=0:P0KE 59000!, 0 

320 IF MTOO THEN GOSUB 970 

330 ON SPRITE GOSUB 560 

340 ON I NTEROAL— V 1/60 GOSUB 550 

350 INTERVAL ON 

360 IF VI =300 THEN INTER VAL OFF 
370 PUT SPRITE 2, (201-VI/2, 157) , 15,2 
380 SOUND 8, 16- INT (VI /60) 

390 LOCATE 5 , 1 

400 TA=T IME/ 50: PRINT TA 

410 LOCATE 13,1 

420 NM=NM+PEEK ( 59000 ! ) 

430 PRINT NM 

440 PDKE 59000!, O 

450 IF NM>4999 THEN 570 

460 SPRITE ON 

470 A=ST I CK ( O ) s C= 1 

480 IF A=3 AND VIO60 THEN VI=VI-2:C=0 

490 IF A=7 AND VI<293 THEN VI=VI+B:C=0 

500 IF A=1 AND Yl<>48 THEN Y1=Y1-S 

510 IF A=5 AND Y10112 THEN Y1=Y1+B 

520 PUT SPRITE 1 , (24, Y1 ) , 15, 1 
530 Z=USR2(0) 

540 IF C=1 THEN 370 ELSE 340 
550 Z=USR1 (O) sRETURN 

560 SPRITE OFF: VI =300: SOUND 8,0:RETURN 

570 INTERVAL OFF 

580 BEEP: FLAY "05L40CDCDCE" 

590 IF TA<MT OR MT=0 THEN MT=TA 

600 GOSUB 970 

610 LOCATE 9,3 

620 PR INT "APPUYER SUR <S>" 

630 IF INKEY*="S" THEN CLS:GOTO 160 ELSE 
630 

640 FOR T=0 TO 39 

650 READ A 

660 S*=5$-i-CHR$<A) 
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670 NEXT T 

680 FOR T=1 TO 5 

690 SPRITE* (T) =LEFT* (S*, 32) 

700 NEXT T 

710 SPRITE* (2>=MID* (S*, 33, 8) 

720 FOR T =0 TO 7 
730 VPOKE 1S56+T, 0 
740 VPOKE 1920+T,Ü 
750 VPOKE 784+T , 0 
760 VPOKE 792+T ,0 
770 NEXT T 
780 VPOKE 8221,1 
790 VPOKE 8222,14 
800 FOR T=0 TO 7 
810 READ A 
820 VPOKE 768+T , A 
830 VPOKE 776+T , A 
840 NEXT T 
850 VPOKE 8204,254 
860 RETURN 

870 DATA 222,222,204,222,255,255,255,255 

880 DATA 222,204,222,222,0,0,0,0 

890 DATA 0,0,60,24,254,159,159,254 

900 DATA 24,60,0,0,0,0,0,0 

910 DATA 255,129,129,129,129,255,0,0 

920 DATA 0,0,0,255,255,0,0,0,0 

930 PUT SPRITE 3, (0,209) , 13,3 

940 PUT SPRITE 4 , C 88 , 209 ) , 1 2 , 4 

950 PUT SPRITE 5 , ( 176 , 209) , B , 5 

960 RETURN 

970 LOCATE 23,1 

980 PRINT SPACE* (3) 

990 LOCATE 21,1 
ÎOOO PRINT MT 
101 O RETURN 

ÎOOOO REM DEPLACEMENT VOITURE+ROUTE 

10010 RESTORE 10070 

10020 FOR T=60000 ! TD 60217! 

10030 READ A 
10040 PDKE T, A 
10050 NEXT T 
10060 RETURN 
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10070 DATA 33 , 160,24 , 1 , 160 , 1 , 62,232 ,205 , 

86.0. 33.192.24.1.96.1.62.240.205.86 
10080 DATA 0,201,33,32,25,205,142,234,33 
, 160,25,205,142,234,42, 120,230,17,3,0 
10090 DATA 25,34,120,230,201,6,32,205,74 
,0,60, 254 ,100,32,2,62,96, 205 ,77,0 
10100 DATA 35,16,240,201,62,2,205,135,0, 

35 . 205 . 74 . 0 . 254 .111.56.98.6.4. 254 
10110 DATA 141,56,2,6,12,254,171,56,2,6, 

20.62.3.245.197.205. 135.0. 35.205 

10120 DATA 74,0,55,144,48,8,205,77,0,205 
,222,234,24,3,205,77,0,193,241,60 
10130 DATA 254,6,32,225,201,237,95,254,4 
2,48,5,62,48,195, 244 , 234 , 254 ,84,48,5 
10140 DATA 62,80,195,244,234,62,110,43,2 

05 .77.0. 35.35.35. 237 .95.6.8. 254 . 42 
10150 DATA 56, B, 6, 12,254,84,56,2,6, 13, 12 
0,205,77,0,201 ,6,12,254,81,56 

10160 DATA 2,6,4,62,3,245,205,135,0,35,2 

05 .74.0. 128. 220 . 48 . 235 . 205 .77.0 

10170 DATA 241,60,254,6,32,235,201,245,6 

2.209.43.205.77.0. 35.241 .201 
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XEROS 


Vous devez détruire le générateur alimentant les Xéros, terribles four- 
mis guerrières, en un temps le plus faible possible. 

Pour ce faire, tuez toutes les fourmis. La porte s'ouvrira et vous n'aurez 
plus qu'à tirer dans le générateur. 

Pour déplacer votre base, utilisez les touches curseur gauche et droite ; 
pour tirer la touche curseur haut. 


1 0 REM******* 

20 REM*XEROS* 

30 REM******* 

40 SCREEN 1,2 
50 WIDTH 32 
60 KEY DF F 
70 DEFUSR— 60000 ! 

80 DEFUSR 1=6001 2! 

90 UN STOP GDSUB 110 
100 STOP ON : GOTO 120 
110 SDREEN 0 : END 
120 COLOR 10,1,1 
130 GDSUB 10000 
140 RE S TORE 
150 S$='"'sN=0 
160 GOSUB 620 
170 A=USR<0) 

180 Xl=l 16: TE=0: T 1=0: X4=15: X3=0: Y3=0 
190 Z=RND(-TIME> 

200 GDSUB 910 
210 TIME=0:SC-0 
220 GOSUB 1130 
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230 GOSUB 1160 
240 A-STICK (O) 

250 IF A=7 AND X1O20 THEN X 1 =X 1~8: X4=X4 
-1 

260 IF A=3 AND X1022B THEN X1=X1+B:X4=X 
4+1 

270 IF A=1 AND T 1=0 THEN X2=X 1+4: Y2=l 67: 
TI = 1 : X3"X4: Y3=21 : PLAY "01L64C" 

2BO PK=6144+32*Y3+X3: IF VPEEK(PK)=32 THE 
N 310 ELSE Y2=3 1 : IF VPEEK (PK) =120 THEN V 
PÜKE PK, 32: GOTO 310 

290 IF Y 3 >5 THEN VPOKE PK-1 , 32: VPOKE PK, 

32: VPÜKE PK+1 ,32: PLAY 11 D5L64B’ 1 : N=N+1 : IF 

N=16 THEN GOSUB 370 

300 IF VPEEK (PK) >135 THEN 420 

310 IF Y2=31 THEN Y2=209: T 1=0: Y3=21 

320 IF T I = 1 THEN Y2=Y2-8: Y3=Y3-1 

330 PUT SPRITE 2 , ( X2 , Y2> , 7 , 2 

340 PUT SPRITE 1 , ( XI , 173) , 15, 1 

350 TE=TE+1 : IF TE=15 THEN TE=0: A=USR1 (0) 

: SC=TIME: BOSUB 1130 

360 GOTO 240 

370 FDR T=0 TO 5 

380 VPÜKE 631 7+T , 32: BEEP 

390 FOR 1=1 TO 50: NEXT I 

400 NEXT T 

410 RETURN 

420 IF SC< RE OR RE=0 THEN RE=SC 
430 BEEP 

440 SOUND 6,20: SOUND 7,7 

450 SOUND 12, 100: SOUND 8,16 

460 SOUND 13, 14: SOUND 0,1 

470 FOR T— 1 TO 500: NEXT T 

480 FOR T=1 TO 50 

490 FOR 1=14 TO 1 STEP-1 

500 COLOR 10,1,1+1 

510 NEXT I 

520 NEXT T 

530 CL S 

540 PUT SPRITE 1 , (200 , 208) , , 1 

550 COLOR 10,1,1 

560 FOR T-l TO 200: NEXT T 
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570 BEEP 

580 T I ME=SC : GOSUB 1130: GOSUB 1160 

590 LOCATE 8,10 

600 PR INT “APPUYER SUR <S>" 

610 IF INKEY4K > M 5" THEN 610 ELSE CLS:GOT 
O 140 

620 FOR 1=0 TO 31 

630 READ A 

640 VPOKE 880+T , A 

650 NEXT T 

660 FOR T=0 TO 7 

670 READ A 

680 VPOKE 960+T , A 

690 NEXT T 

700 FOR T=8205 TD 8214 

710 READ A 

720 VPÜKE T, A 

730 NEXT T 

740 FOR T =0 TO 39 

750 READ A 

760 S*=S*+CHR*(A> : NEXT T 
770 SPRITE*< 1)=LEFT*<S*,32) 

780 SPRITE* <2)=MID*(S*,33,B> 

790 RETURN 

BOO DATA 5,136,94,63,63,94,136,16 
810 DATA 4,136,190,255,255,190,136,80 
820 DATA 32,17,125,255,255,125,17,10 
830 DATA 160,17,122,252,252,122,17,8 
B40 DATA 255,129,129,129,129,129,129,255 
850 DATA 160,128,192,96,64,96,144,16,208 
,32 

860 DATA 1 ,7, 7, 7, 7, 7, 7, 7 

870 DATA 1,199,223,255,255,231,195,193 

880 DATA 128,224,224,224,224,224,224,224 

890 DATA 128,227,251,255,255,231,195,131 

900 DATA 0,0,24,60,24,0,0,0 

910 FOR 1=0 TO 2 

920 LOCATE 0, 6+5*1 

930 FOR T =0 TO 63 

940 PR INT CHR* ( 120) ; 

950 NEXT T 
960 NEXT I 
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970 LOCATE 31,8 
980 FOR T=0 TO 7 

990 PR INT CHR$ (32) ; CHR# (112) i CHR^ (113) ; C 
HRÏC32) ; 

1000 NEXT T 
1010 LOCATE 1,14 
1020 FOR T=0 TO 7 

1030 PR INT CHR$ < 32 ) ; CHR$ (110) ; CHR$ ( 1 1 1 ) 5 
CHR$<32) ; 

1040 NEXT T 

1050 LOCATE 0,3 

1060 FOR T =0 TO 95 

1070 PR INT CHR$ (128) NEXT T 

1080 FOR X=0 TO 5 

1090 LOCATE X+13,4 

1100 PR INT CHR$C136+X*0) ; 

1110 NEXT X : PR INT 
1120 RETURN 
1130 LOCATE 7,1 

1140 PR INT RIBHT$(STR$UNT(SC/5Q)+lOQ0Q> 
,4) 

1150 RETURN 
1160 LOCATE 21,1 

1170 PRINT RIBHT$(STR$ (INT (RE/50) +10000) 

, 4 ) 

1180 RETURN 

10000 REM DEPLACEMENT XERDS 

10010 RESTORE 10070 

10020 FOR T =60000 ! TO 60177! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 33,0,4,1,192,1,62,255,205,86, 
0,201,30,0, 1 ,112,3,205,130,234 
10080 DATA 237,75,122,230,3,28,123,254,4 
,32,242,195,171 ,234,237,67, 120,230,42, 12 
O 

10090 DATA 230,1,7,0,9,34,122,230,42,120 
,230,205 , 74,0,245 , 42, 122 ,230,205,74 
10100 DATA 0,42,120,230,205,77,0,241,42, 
1 22 , 230 , 205 ,77,0,201,33,63,25,6,31 
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en en 


10110 DATA 205,190,234,33,192,25,6,31,20 
,212, 234 ,195, 234 , 234 , 205 ,74,0, 245 ,43,20 

10120 DATA 74,0,35,205,77,0,43,43,16,245 
,241,35,205,77,0,201 ,205,74,0,245 
10130 DATA 35,205,74,0,43,205,77,0,35,35 
, 16,245,241,43,205,77,0,201 ,33,255 
10140 DATA 24,6,63,205,190,234,33,96,25, 
6,63, 205 ,212, 234 ,33,63,26,6,63, 205 
10150 DATA 190,234,6,6,33,17,32,205,74,0 
,60,205,77,0,35,16,246,201 
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ASTEROÏDES 


Tirez sur les astéroïdes avant qu'ils ne vous détruisent. 

Pour manœuvrer votre base, utilisez les touches curseur gauche et 
droite ; pour tirer ia touche curseur haut. 

Vous pouvez modifier la vitesse du jeu en donnant à la variable VI (ligne 
801 une valeur comprise entre 1 et 5, 1 étant le mode le plus rapide. 


10 REM************ 

20 REM* ASTERO I DES* 

30 REM************ 

40 SCREEN 1,2 

50 WIDTH 32 

60 KEY OFF 

70 CDLOR 10,0,0 

80 CLEAR 1000: VI =3 

90 PÛKE 59005! ,7ïP0KE 59006 !, 1 1 

100 ON STOP GQSUB 120 

110 STOP ON: GOTO 130 

120 SCREEN 0: END 

130 Z=RND (—TIME) 

140 GOSUB 10000 
150 DEFUSR-60000 ! 

160 DEFÜSR 1=6001 2! 

170 GOSUB 540 
190 GOSUB 850 
190 GOSUB 930 

200 PÛKE 59000! ,0: POKE 60201', VI 
210 SPRITE$(1)=LEFT*(S*,32) 

220 PUT SPRITE 1 , < 124 , 176) , 1 5, 1 
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230 PUT SPRITE 2 , ( 1 28 , 246) , 2 , 2 

240 FOR T=3 TD PEEK (59005 !) -1 

250 PUT SPRITE T , (RND < 1 ) *256 , < T-3) *1 6) , 9 

* 'T 

260 NEXT T 

270 FOR T=PEEK (59005! ) TD PEEK (59006 !) -1 
280 PUT SPRITE T , (RND ( 1 ) *256 , < T-3) *1 6+B) 
,9, T 

290 NEXT T 

300 POKE 59014! , PEEK (59006 !) -3 
310 A=USR1 (0) 

320 IF PEEK (59014 1 ) =0 THEN 200 

330 SOUND 6,20; SOUND 1,12 

340 SOUND 7, 7: SOUND 12,50: SOUND 8,16 

350 SOUND 13,0 

360 FOR T-l TD 100 

370 SPRITE* (1)=A* 

380 SPRITE* (1)=B* 

390 NEXT T 
400 SOUND 8,0 

410 IF VPEEK (6191 ) =48 THEN 440 
420 VPOKE 6191, VPEEK (6191 )-l 
430 BOTO 200 
440 IN=1 
450 8=6183 

460 IF VPEEK (A) < VPEEK (A+l 3) THEN 500 EL5 

E IF VPEEK (A) = VPEEK (A+13) AND A061B6 TH 

EN A=A+1 : GOTO 460 

470 FOR T=6183 TO 6186 

480 VPOKE T+13, VPEEK (T) 

490 NEXT T 

500 LOCATE 8,10 

510 PR INT "APPUYER SUR <S>'’ 

520 IF INKEY*<>"S" THEN 520 

530 A=USR (0) : BDTQ 180 

540 RESTORE 730 

550 FOR T=0 TO 71 

560 READ A 

570 S*=S*+CHR* ( A ) 

580 NEXT T 

590 SPRITE* <2)=MID* (S* ,33,8) 

600 FOR T =3 TO 10 

610 SPRITE* CT)=MID*(S*,41,32) 

620 NEXT T 
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630 FOR T=0 TO 23 
640 READ A 

650 VPOKE 1856+T MOD 8+ INT (T/B) *64 , A 
660 NEXT T 

670 VPOKE 8221 ,240s VPOKE 8222,160 
680 VFOKE 8223,112 
690 FOR T =0 TO 63 

700 IF T <32 THEN A*=A*+CHR* (RND ( 1 ) *255) 
ELSE B*=B*+CHR* ( RND ( 1 ) *255) 

710 NEXT T 
720 RETURN 

730 DATA 1 ,3, 7, 7, 7, 3, 3, 3 

740 DATA 7,15,31,63,60,60,48,0 

750 DATA 128,192,224,224,224,192,192,192 

760 DATA 224,240,248,252,60,60,12,0 

770 DATA 24,24,60,126,126,126,102,66 

780 DATA 0,0,1,3,15,15,31,63 

790 DATA 63,31,15,15,3,1,0,0 

SOO DATA 0,0,128,192,240,240,248,252 

810 DATA 252, 24B, 240, 240, 192, 128,0,0 

820 DATA 0,0,8,0,0,0,32,0 

830 DATA 0,0,32,0,0,0,0,0 

840 DATA 0,128,0,0,0,0,0,32 

850 LOCATE 7,1 

860 PR INT "ÜOOO" 

B70 LOCATE 15,1 
880 PR INT "2” 

890 IF IN=1 THEN RETURN 
900 LOCATE 20,1 
910 PR INT "0000" 

920 RETURN 

930 PUT SPRITE 1 , (0,208) , 15, 1 

940 FOR T=1 TO 100 

950 LOCATE RND ( 1 > *31 , RND ( 1 ) *22+2 

960 PRINT CHR* (232+ INT (RND ( 1 ) *3) *8) ; : NEX 

T T 

970 RETURN 

10000 REM ROUTINE PRINCIPALE 

10010 RESTORE 10070 

10020 FOR T=60000 ! TO 60417! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 
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10070 DATA 33,64,24,1,192,2,62,32,205,86 

,0,201,62,8,205,65,1,71,62,1 

10080 DATA 205,135,0,35,205,74,0,203,96, 

32,1 1,254,20,40,20,214,2,205,77,0 

10090 DATA 24,13, 203 ,120,32,9, 254 , 220 , 40 

,5,198,2,205,77,0,79,62,2,205,135 

10100 DATA 0,58,120,230,254,1,40,23,203, 

104, 32, 3B, 62, 160,205,77,0,35, 121 ,198 

10110 DATA 4,205,77,0,62,1,50,120,230,24 

, 19,205,74,0,254,24,32,7,62,0 

10120 DATA 50,120,230,62,250,214,4,205,7 

7.0. 58.121.230.60.50. 121 .230.254.0.32 
10130 DATA 26,33,29,32,205,74,0,245,33,3 
0,32, 205 ,74,0,33,29,32, 205 ,77,0 

10140 DATA 241,33,30,32,205,77,0,62,3,24 
5,205,152,235,241 ,60,33,125,230,190,32 
10150 DATA 244,245,205,192,235,241,60,33 
, 126,230,190,32,244,62,2,205,54,235,62,0 
10160 DATA 50,132,230,62,1,205,54,235,58 
, 132,230,254,1,200,58,134,230,254,0,200 
10170 DATA 6,2,62,0,60,254,0,32,251,16,2 

47.195.108. 234 . 205 .135.0. 205 .74.0 

10180 DATA 71,35,205,74,0,79,62,3,245,20 
5,81 ,235,241,60,33,126,230,190,32,244 
10190 DATA 201,205,135,0,205,74,0,144,48 
, 2 , 238 , 255 , 254 , 8 , 208 , 35 , 205 ,74,0,145 
10200 DATA 48,2,238,255,254,8,208,62,255 
,205 , 77,0 ,43,62 , 209 , 205 , 77 ,0,62,2 
10210 DATA 205,135,0,62,246,205,77,0,62, 
0,50, 120,230,62, 1 ,50, 132,230,205,192 
10220 DATA 0,205,232,235,58,134,230,61,5 
0,134,230,201 ,205, 135,0,205,74,0,254,209 
10230 DATA 200,35,205,74,0,198,2,205,77, 
0,43, 205 ,74,0,60, 254 , 208 ,32,9, 237 
10240 DATA 95,35,205,77,0,43,62,16,205,7 

7.0. 201 .205.135.0.205.74.0.254.209 
10250 DATA 200,35,205,74,0,214,2,205,77, 
0,43, 205 ,74,0,60, 254 , 208 ,32,9, 237 
10260 DATA 95,35,205,77,0,43,62,16,205,7 

7.0. 201.6.4.33.42.24. 205 .74.0 

10270 DATA 60,254,58,40,4,205,77,0,201,6 

2.48. 205 .77.0. 43.16. 236 . 20 1 
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PANIQUE 


Même l'espace est encombré ! 

Récupérez l'énergie des capsules bleues en évitant les autres vaisseaux 
devenant de plus en plus nombreux. 

Pour déplacer votre vaisseau, utilisez les touches curseur gauche et 
droite. 

La partie principale de ce programme étant en assembleur, vous devrez 
attendre l'explosion de votre vaisseau pour appuyer sur la touche STOP. 


10 REM*-******»* 

20 REM*PAN I QUE* 

30 REM****#-**** 

40 SCREEN 1 ,2 
50 COLOR 7,1,1 
60 WÏDTH 32 
70 KEY OFF 
80 DEFUSR=60000 ! 

90 Z=RND<-TIME) 

100 ON STOP GQSUB 120 
110 STOP ON: GOTO 130 
120 SCREEN 0: END 
130 GOSUR 400 
140 GOSUB 10000 
150 PÜKE 59004!, 10 
160 GOSUB 610: WY=1 
170 SPRITE* (1)=S* 

180 PUT SPRÎTE 1 , ( 120, 183) , 15, 1 
190 PÜKE 59000! ,15: POKE 590031,0 
200 A=USR (0) 

210 PUT SPR I TE 1 , ( PEEK ( 59000 ! > *B-4 ,175) , 
9,1 
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220 SOUND 6 , 20: SOUND 7,7 
230 SOUND 12,26s SOUND 8,16 
240 SOUND 13,0 
250 FOR T-l TÜ 100 
260 SPRITEÆ ( 1 > ~D$ 

270 EPRITES ( 1 ) =" " 

280 SPRITE* (l)-Ei 
290 SPRITE$ ( 1 ) " 

300 NEXT T 

310 IF VPEEK C6191 > =48 THEN 340 
320 VPOKE 6191 , VPEEK <6191 ) —1 
330 GOTO 170 
340 T=61B2 

350 IF VPEEK (T) < VPEEK (T+ 15) THEN 370 

360 IF T=61B5 OR VPEEK <T) >VPEEK (T+15) TH 

EN FOR T=0 TO 3: VPOKE 6197+T , VPEEK (61 82+ 

T): NEXT T ELSE T=T+1 s GOTO 350 

370 LOCATE 10,8 

380 PR INT "PRESSER <S>“ 

390 IF INKEY$<>"S" THEN 390 ELSE 150 

400 FOR T=0 TO 7 

410 READ A 

420 S*=S*+CHR:£<A) 

430 NEXT T 

440 FOR T=0 TO 15 

450 READ A 

460 VPOKE 760+T , A 

470 NEXT T 

480 FOR T=5B000! TO 58255! 

490 POKE T , 2+RND ( 1 ) *30 

500 NEXT T 

510 FOR T=0 TO 31 

520 D$=D$+CHR* ( RND < 1 ) *255 ) 

530 E^=E*+CHRÿ ( RND ( 1 ) *255 ) 

540 NEXT T 
550 VPOKE 8204,81 
560 VPOKE 8203,161 
570 RETURN 

580 DATA 24,24,24,24,60,126,102,66 
590 DATA 66,102,126,60,24,24,24,24 
600 DATA 0,0,16,56,16,40,0,0 
610 LOCATE 6,1 
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620 PR INT "0000" 

630 LOCATE 15,1 
640 PR INT "2" 

650 IF WY=1 THEN RETURN 
660 LOCATE 21,1 
670 PR INT "0000" 

680 RETURN 

10000 REM ROUTINE PRINCIPALE 

10010 RESTORE 10070 

10020 FOR T=60000 ! TO 60249! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,32,33,64,24,1,191,2,205,21 
,8,62,0,50, 125,230,205,64,235,62 
10080 DATA 1,205,135,0,35,205,74,0,245,6 
2,8,205,65, 1 ,203,103,32,20,241,254 
10090 DATA 16,40,39,214,8,205,77,0,58,12 
0,230,61,50,120,230,195,178,234,203,127 
10100 DATA32, 19,241 ,254,248,40, 15, 1(98,8, 

205 .77.0. 58.120. 230 .60.50.120. 230 . 24 
10110 DATA 1,241,205,206,234,254,96,32,9 
,205,192,0,205,38,235, 195,197,234,254,95 
10120 DATA 200,205,13,235,205,220,234,19 

5.112.234.237.91.120.230.22.0. 33.224.26, 
25 

10130 DATA 205,74,0,201,58,122,230,60,50 
, 122,230,95,22,0,33, 144,226,25, 126,95 
10140 DATA 33,96,24,25,58, 123,230,60,50, 
123,230,71,58,124,230, 184,32,9,62,0 
10150 DATA 50,123,230,62,95,24,2,62,96,2 

05.77.0. 201.33.64.24.17.220.230.1 
10160 DATA 160,2,205,89,0,33,220,230,17, 

96.24.1. 160.2.205.92.0. 201 .6.3 

10170 DATA 33,41,24,205,74,0,254,57,40,5 
, 60 , 205 ,77,0,201,62,48, 205 ,77,0 
10180 DATA 43,16,236,201,58,125,230,60,5 
O, 125,230,254,0,192,58,124,230,61,254,2 
10190 DATA 216', 50, 124,230,62,0,50, 123,23 
0,201 
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SAUVETAGE 


Le sol argileux est en train d'engloutir la ville ! 

Évacuez les habitants, à l'aide de votre appareil. 

Si vous réussissez à tous les sauver, un certain nombre de points vous 
sera attribué en fonction du temps que vous aurez mis. Puis une autre ville 
apparaîtra mais s'enfoncera plus rapidement. 

Pour manœuvrer votre appareil, utilisez les touches du curseur. 


10 REM ******* **** 

20 REM*SAUVETAGE* 

30 REM*********** 

40 SCREEIM 1,2 
50 WIDTH 32 
60 KEY OFF 
70 Z=RND (—TIME) 

80 ON STOP GOSUB 100 

90 STOP ON: GOTO 110 

100 COLOR 10,1,1: 5CREEN 0: END 

110 COLOR 1,2,1 

120 GOSUB 610 

130 GOSUB 10000 

140 VI~50ïNV=2 

150 DEFUSR=6O000! 

160 POKE 59000! ,VI 
170 PDKE 59001 ! ,5 
180 CLS 

190 GOSUB 1030 
200 GOSUB 860 
210 POKE 5 90 02!, 20 
220 N=0 


- 59 - 






230 XI «120: Yl=l 6: PK=6223 
240 SPRITE* < 1) =A* 

250 A=STICK (0) : Z=USR(0> s 1F PEEK ( 59002 !) = 
0 THEN 530 

260 IF A=7 AND XK >8 THEN X1=X1-B:PK=PK- 
1: SPRITE* (1)=B* 

270 IF A=3 AND Xl< >240 THEN X1=X1+8:PK“P 
K+ 1 s SF'R I TE* ( 1 ) =A* 

280 IF A=1 AND Yl<>16 THEN Y 1 =Y 1 —S : F*K=PK 

-32 

290 IF A=5 AND Y10176 THEN Y1=Y1+B: PK=P 
K+32 

300 PUT SPRITE 1 , (XI , Y1 > , 13, 1 
310 A=VPEEK (PK) ï B=VPEEK (PK+1 ) 

320 IF A=32 AND B=32 THEN 250 

330 IF A =2 40 OR B=240 THEN 440 

340 IF A=24B THEN VPOKE PK, 32: PLAY ‘'05L6 

4CD" : N=N+ 1 : SC=SC+ 1 

350 IF B=248 THEN VPOKE PK+1 ,32: PLAY "05 

L64CD" ; N=N+ 1 : SC=SC+1 

360 GOSUB 1030 

370 IF N<5 THEN 250 

380 B0=1 

390 IF PEEK ( 59002 I) >2 THEN SC-SC+1 : PLAY 
"05L64CD": GOSUB i030:PÛKE 59002 !, PEEK < 59 
002!) -2 ELSE 410 

400 IF PLAY (O) =—l THEN 400 ELSE 390 
410 B0=0 

420 IF VI >10 THEN VI=VI-3 
430 GOTO 160 

440 SOUND 6,20: SOUND 8,16 
450 SOUND 7, 7: SOUND 12,26 
460 SOUND 13,0 

470 PUT SPRITE 1 , ( X 1 , Y 1-8) , 9, 1 
480 FOR T=1 TO 100 
490 SPRITE* (1)=C* 

500 SPRITE* { 1 ) «D* 

510 NEXT T 

520 SOUND 7,254 

530 IF NV=0 THEN 560 

540 NV=NV-1: GOSUB 1030 

550 GOTO 230 
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560 IF SORE THEN RE=5C: GOSUB 1030 

570 LOCATE 8,10 

580 PR INT "APPUYER SUR <S>" 

590 IF INKEYKV'S" THEN 590 

600 SC=0: GOTO 140 
610 FOR T=0 TO 15 
620 READ A 

630 VPOKE 1920— 56* (T>7)+T,A 

640 NEXT T 

650 VPOKE 8222,30 

660 VPOKE 8219,144 

670 VPOKE 8223,242 

680 FOR T— O TO 47 

690 READ A 

700 S*=S*+CHR* (A) 

710 NEXT T 

720 A*=LEFT* (S* , 24) 

730 B*=MID* { S* , 25 ,24) 

740 FOR T=0 TO 63 

750 IF T<32 THEN C*=C*+CHR* (RND ( 1 ) *255) 
ELSE D*=D*+CHR* (RND ( 1 ) *255) 

760 NEXT T 
770 RETURN 

780 DATA 255,129,129,129,129,129,129,255 

790 DATA 0,0,0,84,124,16,56,108 

800 DATA 128,192,224,240,255,255,255,127 

810 DATA 0,0, O, 0,0, O, 0,0 

820 DATA 0,0,0,224,248,254,255,254 

830 DATA 0,0,0,7,31,127,255,127 

840 DATA 0,0,0, 0,0, O, 0,0 

850 DATA 1,3,7,15,255,255,255,254 

860 PUT SF'R I TE 1 ,( 100,208) ,, 1 

870 FOR X=688G TQ 6911 

BBO VPDKE X , 21 9 

890 NEXT X 

900 FOR X=0 TO 31 STEP 2 
910 A=INT (RND (i)*15)+4 
920 FOR Y=A TO 22 
930 LOCATE X,Y 

940 PR I NT CHR* ( 240) ; CHR* ( 240 ) ; 

950 NEXT Y 
960 NEXT X 
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970 FGR T“1 T0 5 
980 X=<RNDC1) *30) +-2 
990 Y =22 

ÎOOO Z-VPEEK <6144+X+Y*32) s IF Z=240 THEN 
Y=Y— 1 : GOTO 1000 

1010 IF Z=32 THEN VPOKE 6144+X+Y*32, 248: 
NEXT T ELSE 980 
1020 RETURN 
1030 LOCATE 7,1 

1040 F'RINT RIGHT$ (STR$ ( 10000+50 ,4) 

1050 IF BQ=1 THEN RETURN 
1060 LOCATE 15,1 
1070 F'RINT NV 
1080 LOCATE 21,1 

1090 PRINT RIGHT*<STR$UGOOO+RE) ,4) 

1100 RETURN 

10000 REM EFFONDREMENT VILLE 
10010 FOR T =60000 ! TO 60047! 

10020 READ A 
10030 POKE T, A 
10040 NEXT T 
10050 RETURN 

10060 DATA 58,121,230,61,50,121,230,254 
O, 192,58,120,230,50,121,230,33,64,24,1 
10070 DATA 128,2, 17, 12B, 187,205,89,0, 17 
96,24,1,128,2,33, 128,187,205,92,0 
10080 DATA 58,122,230,61,50,122,230,201 
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TANKS 


Dans ce jeu, vous devez empêcher les tanks, qui attaquent en vagues 
de plus en plus rapides, de traverser la rivière. 

Vous pourrez vous déplacer horizontalement à l'aide des touches cur- 
seur gauche et droite, tirer avec la touche curseur haut, modifier la longueur 
du tir en appuyant simultanément sur les touches curseur bas et gauche pour 
le diminuer, sur les touches curseur bas et droite pour l'augmenter. Cette 
longueur est inscrite entre le score et le record. 


10 REM******* 

20 REM* TANKS* 

30 REM******* 

40 SCREEN 1 , 2 
50 COLOR 5,3,12 
60 WIDTH 32 
70 KEY OFF 
80 DEFUSR=6Q000 ! 

90 DEFUSR 1=60072! 

100 DEFLJ5R2=60178! 

110 ON STOP GGSUB 130 

120, STOP ON: GOTO 140 

1 30 COLOR 10,1,1: SCREEN 0 s END 

140 GOSUB 570 

150 GOSUB 10000 

160 GOSUB 890 

170 GOSUB 940 

ISO X 1 = 120: DI = 10s LOCATE 14,1:PRINT DI 
190 VI=4 

200 POKE 59000 ! ,2: POKE 59001!, O 
210 POKE 59002! ,0s POKE 59006!, O 
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220 FOR T-3 TO 12 

230 PUT SPRITE T, (255,0) ,9, T 

240 NEXT T 

230 PÜKE 60080! ,VI 

260 A=STICK(0) : Z-USR1 <0> 

270 IF PEEK (59006 !)=1 THEN 480 
280 IF A=7 AND Xl< >24 THEN Xl=Xl-4 
290 IF A=3 AND Xl< >232 THEN Xl=Xl+4 
300 IF A= 1 AND C0=0 THEN CO- 1 : X2=X 1 : Y2=l 
68 : D 1 =D I : SPR I TE* (2 J =C* 

310 IF A=4 AND DK >36 THEN DI-DI+1 : LOCAT 
E 14,1: PR INT DIsBEEP 

320 IF A=6 AND DK >10 THEN DI=DI”1 : LOCAT 

E 1 4 , 1 : PR I NT Dis BEEP 

330 PUT SPRITE 2 , ( X2 , Y2) , 1 , 2 

340 IF C0=0 THEN 460 

350 IF Y2- 1 68-4*D 1 THEN Y2-209: CO-O: SPRI 
TE*(2)=D*: Z=USR(0) ELSE Y2=Y2-4:GQT0 460 
360 B-PEEK (59004 ! ) 

370 IF B- 13 THEN PLAY ''Q1L64C" : GOTO 460 

3B0 PUT SPRITE B, (255,209) , ,B 

390 SOUND 6,20: SOUND 7,7 

400 SOUND 12,26: SOUND 8,16 

410 SOUND 13,0 

420 POKE 59004!, 13 

430 SC=SC+1 

440 GOSUB 890 

450 IF SC MOD 10=0 THEN IF VIOl THEN VI 

“VI - 1 : GOTO 200 ELSE 200 

460 PUT SPRITE 1 , (XI , 168) , 15, 1 

470 GOTO 260 

480 SOUND 7,254 

490 PLAY "05L64CDE" 

500 IF SORE THEN RE=SC: GOSUB B90 

510 LOCATE 8,10 

520 PR INT "APPUYER SUR <S>" 

530 IF INKEY*<>"S" THEN 530 

540 PUT SPRITE 1,(0,2081,15,1 

550 C0=0: Y2=209 

560 SC=0: CLS: GOTO 160 

570 RESTORE 750 

580 FOR T=0 TO 79 
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590 RE AD A 

600 S*=S*+CHR* (A) 

610 NE XT T 

620 FOR T=3* TO 12 

630 SPRITE* (T)=LEFT*(S* ,32) 

640 NEXT T 

650 SPRITE*(l)=mD* (S*,33,32) 

660 C*=M ID* <S* , 65,8) 

670 D*=M I D* ( S* , 73 , 8 ) 

680 FOR T=0 TO 31 

690 RE AD A 

700 VPOKE 1848+T, A 

710 NEXT T 

720 VPOKE 8220,44 

730 VPOKE B22 1,220 

740 RETURN 

750 DATA O, 0,0, 0,0, O, 0,0 
760 DATA 0,0, O, O, O, O, 0,0 

770 DATA 198,254,254,254,198,214,214,254 

780 DATA 254,254,214,16,16,0,0,0 

790 DATA 0,0, 0,0, O, 4, 4, 4 

800 DATA 4,255,255,117,117,113,255,255 

aïO DATA O, 0,0, 0,0, 0,0,0 

820 DATA 0,240,240,192,192,192,240,240 

830 DATA 4, 4, 4, 0,0, 0,0,0 

840 DATA 136,2,41,132,17,72,34,8 

850 DATA 255,255,255,255,0,0,0,0 

860 DATA 202,255,255,255,255,255,255,255 

B70 DATA 255,255,255,255,255,255,255,255 

880 DATA 255,255,255,255,255,255,255,202 

890 LOCATE 7,1 

900 PRINT RIGHT* (STR* ( 10000+SC) ,4) 

910 LOCATE 21 , 1 

920 PRINT RIGHT*(STR*( 10000+RE) ,4) 

930 RETURN 
940 Z=USR2 (O) 

950 LOCATE 0,13 
960 FOR T =0 TO 31 
970 PRINT CHR* (232) ; 

9B0 NEXT T 

990 FOR T=0 TO 63 

1000 PRINT CHR* (233) ; 

1010 NEXT T 
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1020 FOR T=0 TO 31 
1030 PRINT CHR$C234>; 

1040 NEXT T 
1050 RETURN 

10000 REM DEPLACEMENT SPRITE+TOUCHE? 

1001 O RESTORE 10070 

10020 FOR T-ÛOOOO! TO 60189! 

10030 RE AD A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,13,50,124,230,62,2,205,135 
,0,205,74,0,214,4,71,35,205,74,0 
10080 DATA 214,8,79,62,3,245,50,125,230, 
205,135,234,241 ,60,254, 13,32,243,201,205 
10090 DATA 135 , 0,205 ,74,0, 144,48,2, 23B , 2 

55 . 254 . 6 . 208 . 35 . 205 .74.0. 145.48.2 
10100 DATA 238,255,254,6,208,58,125,230, 
50,124, 230 , 201 ,58,122, 230 , 60 , 50 , 122,230 , 
254 

10110 DATA 4, 192,62,0,50, 122, 230, 5B, 121 , 
230,60,50, 121,230,254,15,32,32,62,0 
10120 DATA 50,121,230,58,120,230,254,12, 

40 . 20 . 60.50 . 120 . 230 . 205 .135.0. 62. 24.205 
10130 DATA 77,0,35,237,95,198,56,205,77, 
0,58,120,230,254,2,200,62,2,245,205 
10140 DATA 135,0,205,74,0,60,205,77,0,25 

4.130.32. 13.35.205.74.0. 254.255.40 
10150 DATA 5,62,1,50,126,230,241,71,58,1 
20,230,184,200,120,60, 195,234,234,33,96 
10160 DATA 24,1,160,2,62,231,205,86,0,20 
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S.O.S 


Récupérez les parachutistes à l'aide de votre barque. Mais celle-ci est 
entraînée vers la berge. 

Le chiffre, situé entre le score et le record, est le nombre de parachutis- 
tes que contient votre barque. Si celui-ci est à S, vous ne pourrez plus récu- 
pérer de parachutiste. 

Pour vider votre barque, regagnez la berge. 

Elle peut être déplacée à l’aide des touches curseur gauche et droite. 


10 REM******* 

20 REM*S.O.S* 

30 REM******* 

40 SCREEN 1,2 
50 COLOR 8,7,12 
60 WIDTH 32 
70 KEY OFF 
80 DEFUSR=600Q0! 

90 ON STOP GOSÜB 110 

100 STOP ON: GOTO 120 

110 COLOR 10, 1 , 1: SCREEN O: END 

120 GO SUE 520 

130 GOSÜB 10000 

140 GOSÜB 920 

150 GOSÜB 870 

160 FOR T~2 TO 31 

170 PUT SPRITE T, (255,0) , 13, T 

180 NEXT T 

190 X 1=208 

200 N=0: LOCATE 15,1: PR INT N 
210 C0=1 :DE=0: 01=48 
220 PGKE 590001,0 
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230 F'OKE 5 90 01!, 2 
240 POKE 600 16!, VI 
250 A=STICK(0) :Z=USR(0) 

260 VPÜKE 1 B55 , VPEEK ( 1 855 ) XOR 255 
270 Z=PEEK <59004 ! ) 

2B0 IF Z— 2 AND N“5 THEN Z = 1 

290 IF Z=2 AND N<>5 THEN BEEP: SC=SC+1 : GO 

SUB B70:N=N+1 

300 IF Z=1 THEN PLAY "Q1L64C" : DE-DE+l : VP 
OKE 620 1 +DE , 240 : IF DE®5 THEN 400 
310 IF X 1=20B AND N< >0 THEN PLAY "a5L64C 
D" : N=0 

320 IF A=7 AND Xl>19 THEN X1=X1~4 
330 IF A=3 AND X 1 < 205 THEN Xl = Xl+4 
340 IF X1O208 THEN X1=X1 + 1 
350 PUT SPRITE 1 , < X 1 , 160) , 1 , 1 
360 LOCATE 15,1: PR INT N 
370 IF PEEK ( 59005 ! ) < >22 THEN 250 
380 IF VI >23 THEN VI=VI-8 
390 GOTO 220 

400 IF SORE THEN RE=SC:GOSUB B70 

410 LOCATE 9,10 

420 PR INT "APPUYER SUR <S>" 

430 IF INKEY$<>"S" THEN 430 

440 LOCATE 9,10 

450 PRINT SPACEï < 15) 

460 N=0 

470 FOR X-6202 TO 6206 
480 VPÜKE X , 32 
490 NEXT X 

500 SC=0: PUT SPRITE 1,(0,208),,! 

510 GOTO 150 
520 RESTORE 750 
530 FOR T=0 TO 55 
540 READ A 
550 S$=S*+CHR*(A> 

560 NEXT T 

570 SPRITE*<1 )=LEFT# (S$,24) 

580 FOR T =2 TO 31 

590 SPRITE$(T)=MID$ <S$,25,32) 

600 NEXT T 

610 FOR T=0 TO 23 
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620 READ A 
630 VPOKE 1848+T , A 
640 NEXT T 
650 VPOKE 8219,64 
660 VPOKE 8221,167 
670 VPOKE 8220,71 
680 FOR T=0 TO 15 
690 READ A 

700 VPOKE 1920+T— 56# (T>7) ,A 

710 NEXT T 

720 VPOKE 8222,23 

730 VPOKE 8223,164 

740 RETURN 

750 DATA 0,0,0,240,255,255,127,63 

760 DATA 0,0, 0,0, 0,0, 0,0 

770 DATA 0,0,0,15,255,255,254,252 

780 DATA 0,0,3,7,15,31,31,21 

790 DATA 8, 4, 2, 1,0, 0,0,0 

800 DATA 0,0,248,252,254,255,255,85 

810 DATA 2,4,8,80,224,64,160,0 

820 DATA 0,0,0,0,0,0,0,153 

830 DATA 255,255,255,255,255,255,255,255 

840 DATA 63,127,255,255,255,255,255,255 

850 DATA 24,24,126,126,24,24,24,24 

860 DATA 0, 0,0,0, 0, 1 ,3,7 

870 LOCATE B , 1 

880 PRINT RIGHT*(STR$ (10000+SC) ,4) 

890 LOCATE 21,1 

900 PRINT RIGHT$ (STR# ( 1 OOGO+RE ) 4 ) 

910 RETURN 

920 FOR X=0 TO 27 

930 FOR Y =2 1 TO 24 

940 VPOKE 6144+Y+32+X ,219 

950 NEXT Y 

960 NEXT X 

970 FOR X=0 TO 27 

980 LOCATE X,20 

990 PRINT CHRï (231 ) ; 

1000 NEXT X / 

101 O FOR X=28 TO 31 
1020 FOR Y— 20 TQ 24 
1030 VPOKE 61 44+Y*32+X , 232 
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1040 NEXT V 
1050 NEXT X 
1060 VPOKE 6812,233 
1070 VPOKE 6907,248 
1080 RETURN 

ÎOOOO REM DEPLACEMENT PARA+SAUVE' 5 

10010 RESTORE 10070 

10020 FOR T— 60000 ! TO 60167! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,0,50,124,230,50,125,230,58 
, 120,230,60,50,120,230,254,50,32,32,62 
10080 DATA 0,50,120,230,58,121,230,254,2 

2.40.20.60.50. 121 .230.205.135.0. 62.24 

1 0090 DATA 205 ,77,0, 35 , 237 ,95,198,48, 205 
,77,0,62,3,245,50, 126,230,205, 163,234 
ÎOIOO DATA 241,60,254,23,32,243,201,205, 

135.0. 205 .74.0. 254 . 0 . 200 . 60 . 254 .152.32 
10110 DATA 53,5B, 126,230,50, 125,230,62,0 
, 205 ,77,0,35, 205 ,74,0, 245 , 62 , 255 , 205 
10120 DATA 77,0,62,1,205,135,0,35,205,74 
,0,71,241 ,144,48,2,238,255,254,8 

10130 DATA 56,6,62,1,50,124,230,201,62,2 

,50,124,230,201 ,205,77,0,6,1 ,237 

10140 DATA 95,254,64,48,2,6,255,35,205,7 

4.0. 254.24.32.2.6.1 .254.208.32 
10150 DATA 2,6,255,128,205,77,0,201 
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CAVERNES 


Le but du jeu est de ramasser les sacs d'or dispersés dans 8 cavernes. 
Mais attention aux monstres ! 

Si vous réussissez à récupérer tous les sacs d'or, vous devrez remonter 
à la surface pour changer de cavernes... 

Le nombre entre le score et le record est votre bonus. 

Si J'un des monstres vous touche, vous perdrez 20 points et, si votre 
score ne vous le permet pas, la partie sera finie, de même si le bonus est à 0. 
Pour vous déplacer, utilisez les touches du curseur. 


10 REM*******-#** 

20 REM*CAVERNES* 

30 REM********** 

40 SCREEN 1,2 
50 WIDTH 32 
60 KEY OFF 
70 COL.OR 10,1,1 
BO Z=RND (-TIME) 

90 DEFUSR— 60000 ! 

100 ON STOP GÜSUB 120 

110 STOP GN: GOTO 130 

120 SCREENO: COLQR 10, 1,1 s END 

130 GO SUE 720 

140 GDBUB 10000 

150 Nl-1 

160 GOSÜB 1110 

170 GOSÜB 1290 

180 GOSÜB 1340 

190 RESTORE 250 

200 FOR T=2 TO 5 
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210 READ A 

220 X-RIMD < 1 ) *200+20 

230 PUT SP R I TE T , ( X , T*32-4) , A , T 

240 NEXT T 

250 DATA 9, 2, 4, S 

260 POKE 590001,247 

270 POKE 59001 ! ,6 

280 POKE 59002 ! , 249 

290 POKE 59003!, S 

300 TIME— O 

310 PUT SPRITE 1 , ( 120, 32) , 7 , 1 
320 POKE 59006!, N 1+5 
330 60=45— INT (TIME/50) 

340 IF BQ>-0 THEN 440 
350 PLAY "02L64GABAG" 

360 IF SORE THEN RE=SC: GOSUB 1290 

370 LÜCATE S ,23 

380 PR INT "APPUYER SUR <S>"; 

390 IF PLAY (0) =— 1 THEN 390 

400 IF INKEY*<>"S" THEN 400 

410 CLS: PUT SPRITE 1,(0,208),,1 

420 SC=0 

430 GOTO 150 

440 LOCATE 14,1 

450 PR INT BO 

460 Z=USR (0) 

470 Z=PEEK (59010 ! ) 

480 IF NB<N1 OR PEEK (59005 ! K >32 THEN 59 
0 

490 SC=SC+BO: GOSUB 1290 

500 IF NI <8 THEN N1=N1+1:G0T0 570 

510 LOCATE 8,23 

520 PRINT "FIN DES CAVERNES"; 

530 FOR T= I TO 2000: NEXT T 

540 LOCATE 8,23 

550 PRINT SPACE* ( 16) ; 

560 GOTO 350 

570 CLS: PUT SPRITE1 , (0 , 208) , , 1 
580 GOTO 160 

590 IF 2=0 THEN FOR T=1 TO 40: NEXT T: GOT 
O 330 

600 IF 2 >5 THEN 680 
610 PLAY "L64Ü 1DEDEDEDE" 
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620 SPRITEt (1)="" 

630 SPRITE* ( 1) =A* 

640 IF PLAY(0)=-1 THEN 620 

650 PUT SPRITE 1 , ( 120, 32) , , 1 

660 IF SOI 9 THEN SC=SC-20s GOSUB 1290 EL 

SE SC=0 : GOTO 350 

670 GOTO 330 

680 PUT SPRITE Z, (0,209),, Z 
690 PLAY " 05L64CD " 

700 NB=NB+1 

710 IF PLAY (0) =0 THEN 330 ELSE 710 

720 RESTORE 960 

730 FOR T=0 TO 95 

740 RE AD A 

750 S*=S*+CHR* (A) 

760 NEXT T 

770 A*=LEFT*(S* ,32) 

780 SPRITE* ( 1 ) =A* 

790 FOR T =2 TO 5 

800 SPR I TE* ( T ) =M I D* ( S* , 33 , 32 ) 

810 NEXT T 

820 FOR T =6 TÜ 13 

830 SPRITE* (T) =MID* (S* , 65, 32) 

840 NEXT T 

850 FOR T=Q TO 7 

860 RE AD A 

870 VPOKË 1 B56+T , A 

880 NEXT T 

890 VPOKE 8221,89 

900 FOR T =0 TO 15 

910 READ A 

920 VPOKE 1 920+T , A 

930 NEXT T 

940 VPOKE 8222,161 

950 RETURN 

960 DATA 0,3,7,7,3,3,15,23 

970 DATA 23,23,23,7,6,6,14,30 

980 DATA 0,192,224,224,192,192,240,232 

990 DATA 232,232,232,224,96,96,112,120 

1000 DATA 7,15,31,19,31,31,31,24 

1010 DATA 31,31,31,31,31,31,31,21 

1020 DATA 224, 240, 248, 200, 24B, 248, 248, 24 

1030 DATA 248,248,248,248,248,248,248,16 
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8 

1040 
1 050 
1060 
2 

1070 

O 

1080 

5 

1090 
1 100 
1110 
1120 
1 130 
1140 
1150 
1160 
1 170 
1 180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


DATA 10, 15,7,3,7,31 ,63,255 
DATA 255,255,127,127,63,63,15,7 
DATA 160,192,192,128,192,240,248,25 

DATA 254 , 254 , 255 , 255 , 254 , 254 , 252 , 24 

DATA 255,126, 129,129, 129,129,126,25 

DATA 24,24,24,63,63,24,24,24 
DATA 24,24,24,252,252,24,24,24 
FQR Y=6 TO 24 STEP 4 
LOCATE 0 , Y 
FOR X=0 TO 31 
PR INT CHR$ (232) ; 

NEXT X 

NEXT Y 

FOR N=0 TO 1 

FOR Y =5 TO 17 STEP 4 

G 08 U B 1230 

NEXT Y 

NEXT N 

RETURN 

X=INT (RND ( 1 > *6) *2+2+N*16 
FOR T~Û TO 4 
LOCATE X , Y+T 

PR INT CHR4:(240) ; CHRÏ (241 > 

NEXT T 
RETURN 
LOCATE 7,1 

PR INT RIBHT* (STRï C10000+SC» ,4) 
LOCATE 21,1 

PR INT RISHT$<STR*UQOOO+RE> ,4) 
RETURN 

RESTORE 1440 
FOR T =6 TO 13 
PUT SPRITE T, CO, 209) , ,T 
NEXT T 

FOR T=6 TO 5+N1 
READ X , Y 

PUT SPRITE T , < X , Y) , 1 1 ,T 

NEXT T 

NB=0 
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1430 RETURN 

1440 DATA 124,160,220,64,44,128,90,96,20 

0,128,60,64,50, 160, 108,96 

10000 REM ROUTINE PRINCIPALE 

10010 RESTORE 10070 

10020 FOR T=600Q0! TD 60302! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,0,50,130,230,205,76,235,62 
, 1 ,205, 135,0,205,74,0,71 ,35,205,74 
100B0 DATA 0,79,197,62,8,205,65,1,193,20 
3,103,32,20,121,254,8,40,101 ,205,28 
10090 DATA 235,254,0,32,94,121,214,8,205 
,77,0,24,86,203, 127,32,20,121 ,2S4, 240 
10100 DATA 40,77,205,28,235,254,0,32,70, 

121 . 198.8.205.77.0. 24.62.203.1 11.32 
10110 DATA 26,205,55,235,205,74,0,254,24 
0,32,48,62,1 ,205, 135,0, 120,214,8,205 
10120 DATA 77,0,205,192,0,24,32,203,119, 

32.28.205.55.235.17.64.0. 25.205.74 
10130 DATA 0,254,240,32,14,62,1,205,135, 
0,120, 198,8,205,77,0,205,192,0,62 

10140 DATA 2,1,120,230,245,205,255,234,3 
,241,60, 254 ,6,32, 245 , 205 , 76 , 235 ,201, 205 
10150 DATA 135, 0,35, 205, 74, O, B7, 10, 130,2 

45.205.77.0. 241 .254.240.48.3.254.10 
10160 DATA 208,10,238,255,198,1,2,201,12 
O , 254 ,32,40,19, 254 ,64,40,15, 254 , 96 , 40 
10170 DATA 11, 254, 12B, 40, 7, 254,160, 40, 3, 

62.1.201.62.0. 201 .33.0.24.22.0 

10180 DATA 89,203,59,203,59,203,59,25,23 

5.104.38.0. 41.41.25.201 .62.1.205.135 
10190 DATA 0,205,74,0,71,50,125,230,35,2 

05.74.0. 79.58. 126.230.245.50.131 .230 
10200 DATA 205,110,235,241,61,254,1,32,2 

43.201.205.135.0. 205.74.0.144.48.2.238 
10210 DATA 255,254,16,208,35,205,74,0,14 
5,48,2,238,255,254, 10,208,58,131 ,230,50 
10220 DATA 130,230,201 
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MISSION 


Défendez votre planète contre les attaques répétées d'étranges créatures. 
Si 5 d'entre elles parviennent à se poser, vous aurez perdu. 

Pour déplacer votre base, utilisez les touches curseur gauche et droite ; 
pour tirer la touche curseur haut. 

Vous pouvez rendre uniforme le mouvement des envahisseurs en met- 
tant à 1 la variable JEU en ligne 90. 


10 REM********-# 

20 REM*MISSION* 

30 REM********* 

40 SCREEN 1,2 
50 COLOR 10,1,1 
60 WIDTH 32 
70 KEY OFF 
BO DEFUSR=60000 ! 

90 VI=5:0EU=2 

100 GN STOP G05UB 120 

110 STOP ON: GOTO 130 

120 SCREEN O: END 

130 GOSUB 500 

140 GGSUB 10000 

150 IF JEUX=1 THEN PÜKE 60228 !, 128: VI=1 
160 GOSUB 620 
170 GOSUB 740 

1B0 PUT SPRITE 1 , (120, 160) , 15, 1 

190 PUT SPRITE 2,(80,2091,9,2 

200 FOR T=3 TO 7 

210 PUT SPRITE T, (255, (T-3>*27) ,2, T 
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220 NEXT T 

230 SPRITEÆ (1) =AÆ 

240 IN=1 : PLAY "1.6401" 

250 Z=USR (O) 

260 FOR T=1 TO Vis NEXT T 
270 Z=PEEK «59051 ! > 

280 IF Z=0 THEN 250 
290 IF Z =50 THEN 330 
300 SC=SC+1 : GOSUB 740 
310 PLAY "OIBC" 

320 GOTO 250 
330 PLAY "CDCD" 

340 EPRITES ( 1 ) =A$ 

350 SF'RITEÏ ( 1 ) = " " 

360 IF PLAY «O) =— 1 THEN 340 

370 IN=0 

3B0 NE=NE+1 

390 GOSUB 740 

400 IF NE— 5 THEN 420 

410 GOTO 160 

420 IF SORE THEN RE=SC: GOSUB 740 
430 PLAY " 07CDE" 

440 LDCATE 8,10 

450 PR INT "APPUYER SUR <S>" 

460 IF INKEY$<>"S" THEN 460 

470 PUT SF'RITE 1,(0,209>,,1 

4B0 CLS : SC=0 : NE-0 

490 GOTO 160 

500 VPOKE B219, 144 

510 RESTORE 660 

520 FOR T =0 TO 63 

530 READ A 

540 S*=S$+CHR* (A) 

550 NEXT T 

560 A$=LEFT $ « S^ , 32 ) 

570 SPRITE$(2)=MID*(S:f,33,8) 

580 FOR T=3 TO 7 

590 SPRITEJ:<T)=MIDt(S$,41,24) 

600 NEXT T 
610 RETURN 

620 FOR T=6B4B TO 6711 
630 VPOKE T, 219 
640 NEXT T 
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650 RETURN 

660 DATA 1,7, 7, 7, 7, 7, 7, 7 

670 DATA 1,199,223,255,255,231,195,199 

680 DATA 128,224,224,224,224,224,224,224 

690 DATA 128,227,251,255,255,231,195,227 

700 DATA 16, 16, 16,84,84 ,6B, 68, 6B 

710 DATA 1,7,6,15,31,57,56,16 

720 DATA 0,0, O, 0,0, O, 0,0 

730 DATA 224,248,216,252,254,231,7,2 

740 LOCATE 7,1 

750 PRINT RIGHT$ (STR$ < 10000+SC) ,4) 

760 IF IN=1 THEN RETURN 
770 LOCATE 14,1 
780 PRINT NE 
790 LOCATE 20,1 

BOO PRINT RIGHT$ (STR:f ( 1Q000+-RE) ,4) 

810 RETURN 

10000 REM ROUTINE PRINCIPALE 

10010 RESTÜRE 10070 

10020 FOR T=60000! TQ 6032B ! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,0,50,171,230,205,78,235,62 
, 1 , 205 , 1 35 , O , 35 , 205 ,74,0, 245 , 62 , B 
ÎOOBO DATA 205,65,1,193,203,103,32,12,12 
0 , 254 ,8,40,51,214,4, 205 ,77,0,24,44 
10090 DATA 203,127,32,12,120,254,232,40, 

35.198.4.205.77.0. 24.28.203.1 11.32.24 
10100 DATA 62,2,205,135,0,205,74,0,254,2 

09.32.12.62.152.205.77.0. 35.120.198 
10110 DATA 4,205,77,0,62,2,205,135,0,205 
,74,0, 254 , 209 ,40,19, 254 ,24,32,7 

10120 DATA 62, 209, 205, 77, 0,24, B, 214, 8, 20 

5.77.0. 205.78.235.1 . 120.230.62.3 

10130 DATA 245,205,228,234,241,3,60,254, 

8.32.245.201.205.135.0. 205.74.0.60.205 
10140 DATA 77,0,254,168,32,34,35,205,74, 
0 , 254 , 255 ,40,6,62,50,50,171, 230 , 201 
10150 DATA 43,62,24,205,77,0,237,95,198, 

56.35. 205 .77.0. 237 *_95 , 230 , 1 ; 2 , 201 


10160 DATA 35,205,74,0,254,255,87,200,10 

,254,0,40,8, 122, 198,2,205,77,0,24 

10170 DATA 6,122,214,2,205,77,0,254,30,4 

8,5,62,1 ,2,24,21,254,220,56,5 

10180 DATA 62,0,2,24,12,237,95,254,127,3 

2,6,10,238,255,198,2,2,201,58,171 

10190 DATA 230,254,0,192,62,2,205,135,0, 

205 .74.0. 71.35. 205 .74.0.214.5.79 

10200 DATA 62,3,50,170,230,205,117,235,5 
8,170,230,60,254,8,32,242,201,205,135,0 
10210 DATA 205,74,0,144,48,2,238,255,254 
, 12,208,35,205,74,0,145,48,2,238,255 
10220 DATA 254,6,208,58,170,230,50,171,2 

30 . 205 .135.0. 35.62. 255 . 205 .77.0.62.2 
10230 DATA 205,135,0,62,209,205,77,0,201 
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SLALOM 


Réalisez le meilleur temps dans cette descente à ski où vous devrez fran- 
chir 20 portes. 

Chaque porte ratée entraînera une pénalité d'une demi-seconde. De 
même, changer de sens vous fera perdre du temps. 

Pour manœuvrer votre skieur, utilisez les touches curseur gauche et 
droite. 



10 REM******-** 

20 REM*BLALOM* 

30 REM******** 

40 SCREEN 1 , 2 
50 COLOR 1,15,15 
60 KEY OFF 

70 LA=30 : F'ÛKE 59005!, LA 
80 DEFUSR=600O0 ! 

90 Z=filMD <-TIME) 

100 ÜN STOP BOSUB 120 

110 STOP ON: GOTO 130 

120 COLOR 10 ,1,1 a SCREEN O: END 

130 GOSUB 520 

140 GOSUB 10000 

150 SPRITE* <1>=A* 

160 X 1=128: D=— 2 

170 CL S 

180 GOSUB 740 

190 PUT SPRITE 1, (XI ,112) ,9, 1 
200 PUT SPRITE 3, ( 1 10, 1 12) ,4,3 
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210 PUT SPRITE 4, < 110+LA, 112) ,4,4 

220 Z=RND < 1 ) *127+50 

230 PUT SPRITE 5 , (Z ,200) , 4 ,5 

240 PUT SPRITE 6 , < Z+LA , 200) , 4 , 6 

250 IF STICK <0)=0 THEN 250 

260 TIME=0 

270 PÜKE 59003 ! , O 

2B0 PLAY "01L64" 

290 LÜCATE 7,1 
300 SC-TIME/50 
310 PRINT SC 
320 A=5TICK <0) 

330 IF A=7 THEN D=-2s SPRITE* ( 1 ) -A$s TI ME= 
TIME+5 

340 JF A=3 THEN D=2: SPRITE* I 1 > =B*: TIME=T 
IME+5 

350 IF D=-2 AND Xl< >24 THEN X1=X1-B 
360 IF D=2 AND Xl< >208 THEN X1=X1+B 
370 IF XI =24 DR XI =208 THEN 290 
380 Z=USR (0) 

390 PUT SPRITE 1 , ( XI , 1 12) , , 1 

400 IF PEEK (59002 ! ) =1 THEN PLAY ,, C'*:TIME 

=T I ME+25 

410 IF PEEK <59003 !) <40 THEN 290 
420 CL S 

430 PLAY "05CDEDC" 

440 IF SCCRE OR RE=0 THEN RE=SC 
450 GOSUB 740 
460 LOCATE 9,10 
470 D$=INKEY* 

480 PRINT "APPUYER SUR <S>" 

490 IF INKEY*< >"S" THEN 490 

500 SC=0 

510 GOTO 150 

520 RESTORE 640 

530 FOR T =0 TO 79 

540 READ A 

550 S*=S*+CHR* (A) 

560 NEXT T 

570 A*=LEFT* (S*, 32) 

580 B*=MID*<S*,33,32) 

590 Ci=MID*<S$,65,16) 
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600 FOR T=3 TO 6 
610 SPRITE* (T) =C* 

620 NEXT T 
630 RETURN 

640 DATA 3,3,3,1,7,11,11,19 

650 DATA 4,5,6,152,97,38,24,0 

660 DATA 128,128,128,0,192,160,160,144 

670 DATA 224,198,88,96,128,0,0,0 

680 DATA 1,1, 1,0, 3, 5, 5, 9 

690 DATA 7,99,26,6,1,0,0,0 

700 DATA 192,192,192,128,224,208,208,200 

710 DATA 32,160,96,25,134,100,24,0 

720 DATA 16,24,28,30,31,16,16,16 

730 DATA 16,16,16,16,16,16,56,16 

740 LOCATE 7,1 

750 PRINT SC 

760 LOCATE 18,1 

770 PRINT RE 

780 RETURN 

10000 REM DEPLACEMENT PORTES+PASSE^ 

10010 RESTÜRE 10070 

10020 FOR T=600G0! TO 60130! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 62,0,50,122,230,62,1,205,135, 
0,205,74,0,214,8,71 ,35,205,74,0 
10080 DATA 198,4,79,62,3,245,50,120,230, 
205 ,135, 234 ,241,60, 254 ,7,32, 243 ,201, 205 
10090 DATA 135,0,205,74,0,254,16,40,44,2 

14.4.205.77.0. 184.192.35.58.123.230 
ÎOIOO DATA 60,50,123,230,58,120,230,254, 

4.40.15. 254 .6.40.11. 205 .74.0. 185.216 
10110 DATA 62,1,50,122,230,201,205,74,0, 

185.56.244.201.62. 200 . 205 .77.0. 35.58 
10120 DATA 120,230,230,1,254,0,40,11,237 
,95 , 198 , 50, 50, 121 , 230,205 , 77 , 0,201 , 58 
10130 DATA 121 ,230, 87, 5B, 125,230,130,205 
,77,0,201 
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LABYRINTHE 


Traversez le plus rapidement possible le labyrinthe. Pour cela, déplacez- 
vous le moins possible. 

Utilisez les touches curseur gauche et droite pour vous déplacer. 
Vous pouvez passer d'un bord à l'autre de l'écran sans problème. 


10 REM************ 

20 REM*LABYR INTHE* 

30 REM************ 

40 SCREEN 1,2 
50 COLÜR 10,0,0 
60 KEY OFF 
70 Z=RND {-TIME) 

30 DEFUSR-60000 ! 

90 ON STOP GOSUB 110 
100 STOP ON: GOTO 120 
110 SCREEN 0: END 
120 GOSUB 460 
130 GOSUB 10000 
140 CLS 
150 GDSUB 700 

160 FOR Y 1 = 1 4 TO 22 STEP 4 
170 GOSUB 630 
ISO NEXT Y 1 
190 Y 1=22 

200 X 1=120: X 2=6607 s DE=0: N 1=0 
210 TIME=0 
220 LÛCATE 5,1 
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230 TE=TI ME/50 
240 PR INT TE 
250 A=STICK(0> 

260 IF A<>7 THEN 290 

270 IF X 1 = 1 6 THEN X 1=240: X2=X2+28 

280 X 1 = X 1 —8 : X 2= X 2— 1 : BEEP 

290 IF A< >3 THEN 320 

300 IF X 1=232 THEN X 1=B: X2=X2“2S 

310 X 1=X 1+8: X2=X2+1 : BEEP 

320 PUT BPRITE 1 , ( X 1 , 96) , 9 , 1 

330 IF VPEEK ( X2) < >32 DR VPEEK ( X2+ 1 ) < >32 

THEN 370 

340 Z=USR (0) 

350 N1=N1+1 

360 IF Nl<30 THEN GOSUB 630 

370 IF Nl<34 THEN 220 

380 PLAY "G5L.64CDE 

390 PUT SPRITE 1, (0,208) , ,1 

400 IF TE<RE OR RE=0 THEN RE=TE 

410 GOSUB 700 

420 LOCATE 9,10 

430 PR INT "APPUYER SUR <S>" 

440 IF INKEY$<>"S" THEN 440 

450 GOTO 140 

460 RESTORE 580 

470 FOR T=0 TO 31 

480 READ A 

490 S$=S4+CHRT CA) 

500 NEXT T 

510 SPRITE*<1)=LEFT$<S*,32> 

520 FOR T=0 TO 7 

530 READ A 

540 OPOKE 192Q-+-T, A 

550 NEXT T 

560 VPOKE 8222,244 

570 RETURN 

580 DATA 0,3,7,7,3,1,15, 23 
590 DATA 23,23,23,7,6,6,14,30 
600 DATA 0,192,224,224,192,128,240,232 
610 DATA 232,232,232,224,96,96,112,120 
620 DATA 255,66,36,24,24,36,66,255 
630 Z1=RND(1>*12+* ' 

640 Z2=RND(1)*13+14 
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650 LOCATE tf,Yl 

660 PR INT STRINGS (29, CHR* (240) > ; 

670 LOCATE Zl,Yl:PRINT SPACE$(2) 

680 LOCATE Z2,Y1:PRINT SPACE$<2) 

690 RETURN 

700 LOCATE 0,1 

710 PRINT SPACE$(32> 

720 LOCATE 5,1 
730 PRINT TE 
740 LOCATE 19,1 
750 PRINT RE 
760 RETURN 

10000 REM SCROLL BAS~>HAUT 

10010 RESTORE 10070 

10020 FOR T=60000 ! TO 60029! 

10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 6,4,197,1,32,0,17,33,0,33,128 

, 24 , 205 ,74,0, 237 ,66,205,77,0 

10080 DATA 25,62,27,188,32,242,193,16,22 

9,201 


FOOTBALL 


Le footbaJI est un sport d'équipe. Voilà un jeu qui vous permettra d'en 
témoigner I 

Vous êtes seul contre toute une équipe et devez marquer un maximum 
de buts. Dix interceptions du ballon par l'ennemî et vous avez perdu. 

Shootez avec la touche curseur haut. 

Vous pouvez, avant le shoot, déplacer le ballon horizontalement à l'aide 
des touches curseur gauche et droite. 



10 REM********** 

20 REM*FOÜTBALL* 

30 REM********** 

40 OPEN "GRPi " FOR OUTPUT ASttl 

50 GOSUB 10000 

60 COLOR 15,12,12 

70 SCREEN 2,2 

80 KEY OFF 

90 DEFUSR=60000! 

100 ON STOP GOSUB 120 

110 STOP OFF: GOTO 130 

120 COLOR 10, 1 , 1: SCREEN O: END 

130 GOSUB 580 

140 S*="" 

150 GOSUB 500 

160 X 1=128: Y 1=1 84: CO=Ü: NE=0 
170 RE STORE 830 
180 FOR T =2 TO 11 
190 READ X , Y 

200 PUT SPRITE T,(X,Y),4,T 
210 NEXT T 


- 97 - 


220 PUT SF'RITE 12, ( 128,48) ,8, 12 

230 X3=168:SC=REï GOSUB 870 

240 X3=72: SC=0: GOSUB B70 

250 GOSUB 940 

260 ON SPRITE GOSUB 420 

270 SPRITE ON 

280 A=STICK (0) : Z=USR (0) 

290 IF A=7 AND Xl< >96 AND Y1=1B4 THEN XI 
= X1-B 

300 IF A=3 AND Xl< >160 AND Yl=184 THEN X 
l=Xl+8 

310 IF A=1 AND Y1=1B4 AND B=0 THEN Yl = 17 
6: PLAY '’05L64B M 
320 IF Y10184 THEN Yl=Yl-8 
330 IF Y 1=40 THEN 5C=SC+1 : GOSUB 870 s PLAY 
"05L64CD" : Yl=184 
340 PUT SPRITE 1 , ( XI , Y1 ) , 1 , 1 
350 IF CD=0 THEN B=Os GOTO 270 
360 IF SORE THEN RE=SCs X3=168: GOSUB B70 
370 SC=0 

380 PSET C 80 , 24 ) , 1 2 

390 PRINT 41, "APPUYER SUR <S>" 

400 IF INKEY*< >"S" THEN 400 
410 NE=0: GOTO 60 
420 SPRITE GFF 
430 Y1=1B4: PLAY "01L64D" 

440 FOR T=1 TO 150:NEXT T 
450 PUT SPRITE 1 , (XI , Y1 > , 1 , 1 
460 NE=NE+i: GOSUB 940 
470 IF NE=10 THEN 00=1 
480 B= 1 
490 RETURN 

500 LINE CO , 56 ) ~ (255 , 56 > 

510 PSET C 96, 56 ï 

520 DRAW "M96 , 32M168 , 32M16B , 56 " 

530 PSET (88,56) 

540 DRAW "MSO , 80M184 , BONI 76 , 56 " 

550 PSET (48,56) 

560 DRAW "M16, 120M248, 120M216,56" 

570 RETURN 
580 RESTORE 720 
590 FOR T=0 TO 39 
600 READ A 
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610 S*=S*+CHR* (A) 

620 NEXT T 

630 SPRITE*(1)=LEFT* (S*, 8) 

640 FOR T =2 TO 12 

650 SPRITE* (T) =MID* (S*, 9, 32) 

660 NEXT T 

670 FOR T=0 TO 32 

680 READ A 


w f ^ i : Tr 1 [ , 


700 NEXT T 
710 RETURN 

720 DATA 0,60,126,126,126,126,60,0 

730 DATA 3,3,3,1,7,11,11,11 

740 DATA 11,2,2,2,6,0,0,0 

750 DATA 128,128,128,0,192,160,160,160 

760 DATA 160,128,128,128,192,0,0,0 

770 : 

7B0 DATA 40,120,1,80,176,1,136,216,0 
790 DATA 72,120,1,136,184,0,80,120,1 
800 DATA 136,176,0,80,176,0 
810 DATA 40,120,1,136,216,0,96,160,1 
820 : 

830 DATA 56,144,128,160,200,144 

840 DATA 96,128,160,128,96,104 

850 DATA 160,104,128,88 

860 DATA 56,72,200,72 

870 COLOR 12 

B80 PSET < X3 , 8) , 12 

890 PRINT #1 , STR ING* <4, CHR* (200) ) 

900 COLOR 15 
910 PSET ( X3 , 8) , 12 

920 PRINT #1 ,RIGHT*(STR*(10000+SC) ,4) 

930 RETURN 

940 COLOR 12 

950 PSET (128, B) ,12 

960 PRINT ttl , CHR* (200) ; CHR* (200) 

970 COLOR 15 

980 PSET (128,8) , 12 

990 PRINT #1 ,RI6HT*(STR*(100+NF) ,2) 
1000 RETURN 

10000 REM DEPLACEMENT JOUEURS 

10010 RESTORE 10070 

10020 FOR T=60000! TO 60058! 
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10030 READ A 
10040 POKE T, A 
10050 NEXT T 
10060 RETURN 

10070 DATA 1,1 20 , 230 , 62 , 2 , 245 , 205 ,113, 23 
4,241 ,3,60,254,13,32,245,201,205,135,0 
10000 DATA 35,205,74,0,87,10,186,3,32,6, 
3 , 62 , 1 , 2 , 24 , B , 1 O , 1 86 , 3 , 32 
10090 DATA 3,62,0,2,10,254,0,122,30,4,32 
,2,30,252, 131,205,77,0,201 
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MINES 


Franchissez ce champ de mines. Mais, attention, vous êtes 
chronométré ! 

Au début, l'ordinateur affiche les zones minées. Mais celies-ci seront 
par la suite invisibles. Pour les voir à nouveau, appuyez sur la touche < G > . 
Mais cela vous fera perdre du temps. 

Pour vous déplacer, utilisez les touches du curseur. 


10 REM*-* ***** 

20 REM*MINES* 

30 REM******* 

40 SCREEN 1 ,2 
50 COLOR 1,10,1 
60 KEY OFF 
70 Z=RND (-TIME) 

80 DIM X(10) , Y (10) 

90 ON STOP GOSUB 110 

100 STOP ON: GOTO 120 

110 COLOR 10, 1,1; SCREEN O: END 

120 GOSUB 540 

130 CLS 

140 SC=0 

150 GOSUB 730 

160 X 1=24:' Y 1=32+ INT tRND ( 1 ) *33) *4 
170 0=1: GOSUB 840 
180 SPRITE$<i)="" 
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190 PUT SP R 1 TE 1, <X1,Y1) ,9,1 
200 FOR T=i TO 3500: NEXT T 
210 C=0 : GOSUB 880 
220 TIME=0 
230 SPR I TE$ ( 1 ) « 

240 ON SPR I TE GOSUB 470 

250 SPR I TE ON 

260 SOTI ME/50 

270 LOCATE 7 , 1 

280 PR INT SC 

290 A=STICK<0> 

300 IF A=5 AND Y K >160 THEN BEEF’: Yl=Yl+4 
310 IF A- 1 AND Yl<>32 THEN BEEP: Y1=Y 1 -4 
320 IF A=7 AND XK >24 THEN BEEPîXl=Xl-4 
330 IF A=3 THEN BEEP:Xl=Xl+4 
340 IF INKEY$<>"G M THEN 380 
350 C=ls GOSUB 880 

360 F DR T=1 TO 800: B#=INKEY$: NEXT T 

370 C=0: GOSUB 880 

380 PUT SPR I TE 1 , (XI , Yl) ,9, 1 

390 IF XK >224 THEN 260 

400 PLAY "05L64CDE" 

410 IF RE>SC OR RE=0 THEN RE=SC: GOSUB 81 

O 

420 LOCATE 7,10 

430 PR INT "APPUYER SUR <S>" 

440 IF INKEY$<>"5" THEN 440 

450 PUT SPR I TE 1,(0,208),,1 

460 GOTO 130 

470 SPR I TE QFF 

480 PLAY "01L64CDCDCDCD“ 

490 0=1: GOSUB 880 
500 SPRITEft 1)=A$ 

510 SPRITE* <1>=" » 

520 IF PLAY CO) =— 1 THEN 500 

530 GOTO 420 

540 RESTORE 650 

550 FOR T=0 TO 63 

560 READ A 

570 S$— S$+CHR$ (A) 

580 NEXT T 

390 A*=MID$(S$ ,33,32) 

600 FOR T=2 TO 10 
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610 SPR I TE$ ( T ) =LEFT 4 1 - < S$ , 32 ) 

620 NEXT T 

630 VPOKE 8219 , 26 

640 RETURN 

650 DATA 192,224, 1 12,56 ,2B, 14,7,3 

660 DATA 3,7,14,28,56,112,224,192 

670 DATA 3,7, 14, 28 , 56 ,112, 224 , 1 92 

680 DATA 192,224,112,56,28,14,7,3 

690 DATA 3,3,3,1,7,11,11,11 

700 DATA 11,2,2,2,6,0,0,0 

710 DATA 192,192,192,128,224,208,200,208 

720 DATA 208,64,64,64,96,0,0,0 

730 FOR X=0 TG 29 

740 LOCATE X,3 

750 PR INT CHR$ (219) ; 

760 NEXT X 
770 FOR X=0 TO 29 
7B0 LOCATE X ,22 
790 PR INT CHR$<219); 

800 NEXT X 

810 LOCATE 7,1 SPRINT SC 
820 LOCATE 18,1: PR INT RE 
830 RETURN 
840 FOR T =2 TO 10 

850 X (T) =4B+RND ( 1 ) *70+90* (T AND 1) 

860 Y (T)=32+15*(T-2)+INT<RND< 1 ) *8) 

870 NEXT T 

880 FOR T =2 TO 10 

890 PUT SPR I TE T , < X (T) , Y (T) ) , C, T 
900 NEXT T 
910 RETURN 
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